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SECTION 1 
INTRODUCTION 



1.1 GENERAL 

This manual contains the flowcharts and listing for the TIBUG monitor used on the TM 990/100M microcomputers. 
For detailed information on use of this monitor, see Section 3 of the TM 990/1 00M Microcomputer User's Guide. 

Within this manual, Section 1 contains a summary of the TIBUG monitor operation, and Section 2 contains flow 
charts of the monitor, each chart corresponding to a particular part of the monitor listing contained in Section 3. 

1.2 SUMMARY OF TIBUG OPERATION 

1.2.1 STARTUP 

The TIBUG Monitor is entered via an interrupt caused by the RESET switch on the microcomputer board. This 
interrupt is the level-zero interrupt with its vector at locations and 2 in memory. 

1.2.2 BAUD RATE DETECT 

After startup the monitor then starts sampling the TMS 9902 for the character 'A'. The monitor then counts the 
width of the start bit of the first character input by looping through instructions. In fact, this character can be any 
character whose ASCII representation has a one in the low order bit; e.g., A = 41 ]q. This count is compared to four 
entries in a table. It should be noted that the number of times through the loop will depend on the clock rate the 
microprocessor is using. If the clock rate changes, the entries in the table must be recalculated. After the baud rate 
has been detected, the TMS 9902 is set up and a banner message is printed, indicating what version of TIBUG is 
being used. 

1.2.3 SYSTEM INITIALIZATION 

Following the banner message output, the monitor sets up its own workspace and initializes four flags starting at 
memory location FFF4iq. At this point the microterminal, if present, will send the character 'Z' to the TMS 9902. 
The Monitor will wait a short period for the 'Z' and if it doesn't appear, the Monitor assumes that a device other 
than a TM 990/301 Microterminal is connected to the TMS 9902. If a 'Z' is present, control will go to the 
microterminal command scanner which will accept and process entries from the microterminal. If the microterminal 
is not present, a question mark (?) prompt is output. The user may now enter one of several one-character 
commands to the monitor. A table lookup is then performed and control is transferred to the proper coding. After 
each command is processed, control is returned to the TIBUG Monitor. 

1.2.4 INPUT/OUTPUT 

All input and output functions between external peripheral devices connected to the TMS 9902, including the 
microterminal, are handled via Extended Operations (XOP's). All XOP vectors are in memory locations 40 to 47^6 
and 60 to 7F-|6- These locations reside in EPROM. 

1.2.5 MICROTERMINAL OPERATIONS 

Instructions sent to the Monitor from the microterminal are decoded in a jump table. If an invalid instruction is sent 
from the microterminal, the Monitor waits for another instruction. The microterminal part of the Monitor utilizes 
two unique XOP's (0,1) for sending data to and from the microterminal. 
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1.2.6 SINGLE STEP 



The TIBUG Monitor has the unique "single step" command, which is a combination of hardware and software. 
Single-stepping is accomplished using the LREX instruction. This LREX instruction permits one instruction to occur 
and then causes an interrupt. The interrupt service routine prints the Workspace Pointer (WP), Program Counter 
(PC), and Status (ST) contents after the single instruction is executed. 



1.2.7 MEMORY 



TIBUG is EPROM-resident in memory locations to 7FFi6- A minimal amount of RAM (40 words, FFBO to 
FFFF16) is also needed for workspaces and flags. 
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SECTION 2 
TIBUG FLOW CHARTS 



Flow charts are provided in the following sequence: 

Flow Chart 
Page 



Title Listin 9 

Page 



2-4 XOP 1 3, Read Character 

2-5 XOP 1 2, Write Character 



23 System Initialization and Command Scanner 0004 

0008 
0009 

2-6 XOP 11, Read a Character and Print It Out (Echo) 0012 

2-7 XOP 14, ASCII Message Output 0013 

2-8 M Command, Memory Inspect/Change 0014 

2-12 XOP 9, Hex Input Routine 0016 

214 XOP 10, Hex Output Routine 0018 

2-15 S Command, Single Step Execution 0019 

2-16 Unmaskable Load Interrupt 0019 

2-17 B Command, Breakpoint 0020 

2-18 XOP 15, Output WP, PC, and ST Contents 0020 

2-19 C Command, CRU Inspect/Change 0021 

2-21 W Command, Workspace Register Inspect/Change 0023 

2-25 R Command, WP, PC, and ST Registers Inspect/Change 0025 

2-26 D Command, Tag Dump of Memory 0026 

2-28 L Command, 990 Tag Format Loader 0029 

2-29 F Command, Find Value in Memory 0034 

2-30 H Command, Hex Arithmetic 0035 

2-30 T Command, Set Baud Rate 0036 

2-31 XOP 0, Microterminal Output Routine 0037 

2-32 XOP 1, Microterminal Input Routine 0038 

2-33 Z Command, Microterminal Command Scanner 0039 
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SYSTEM INITIALIZATION AND COMMAND SCANNER 
Listing Page: 0004 

C ) RISE! ENTRY POINT 

HAS AN 'A' BEEN ENTERED? 

BAUD RATE DETECT 

OUTPUT BANNER MESSAGE 
SET UP SINGLE STEP VECTOR 

N --""""^^n, ARE WE CONNECTED TO THE MICROTERMINAL 1 

B J GO TO MICROTERMINAL PROCESSING 

(P2-33) 

OUTPUT A PROMPT?' 

RECEIVE AND PRINT A COMMAND 

ISTHE COMMAND VALID? 
GO PROCESS COMMANDS 




A0001543 
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X0P13, READ CHARACTER 
Listing Page: 0008 

CZD 



ENTER READ CHARACTER XOP 



SET UP 9902 CRU ADDRESS 



DO WE HAVE A CHARACTER? 



INPUT AND SAVE THE CHARACTER 



DISABLE 9902 INTERRUPTS 



RETURN 



A00O1548 
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, 










N 


) 


' 



XOP 12, WRITE CHARACTER 
Listing Page: 0009 

ENTER WRITE CHARACTER XOP 



SET UP CRU BASE OF 9902 



IS TRANSMIT BUFFER REGISTER EMPTY? 



OUTPUT THE CHARACTER 



WAS A CARRIAGE RETURN OUTPUT? 



WAIT FOR TRANSMISSION TO END 



D RETURN 



Y 



ARE WE IN THE DUMP ROUTINE? 



IS THIS ON ASR33? 



WAIT THREE NULL CHARACTERS 



RETURN 



A 0001 549 
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XOP 11, READ A CHARACTER AND PRINT IT OUT (ECHO) 
Listing Page: 0012 



A0001548 



( ) 


' 


r 




' 


' 






- 


( ) 



ENTER ECHO XOP 



READ A CHARACTER, XOP 13 



WRITE A CHARACTER, XOP 12 



RETURN 
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XOP 14, ASCII MESSAGE OUTPUT 
Listing Page: 0013 

ENTER MESSAGE OUTPUT XOP 



GET THE CHARACTER 



IS IT A ZERO; I.E., END OF MESSAGE? 



RETURN 



WRITE A CHARACTER, XOP 12 



A0001550 
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M COMMAND, MEMORY INSPECT/CHANGE 

Listing Page: 0014 
CZZ3 



Y 




WORD ALIGN START AND STOP ADDRESSES 



DO WE DUMP MEMORY? 



\/ (P 2-1 



0) 




SET UP PRINT COUNTER TO 8 



PRINT ADDRESS LOCATION 



PRINT LOCATION CONTENTS 



WAS THE ESCAPE KEY DEPRESSED? 



ARE WE AT END ADDRESS? 



2-3) 



A0001564 
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M COMMAND, MEMORY INSPECT/CHANGE (Continued) 




DECREMENT PRINT COUNTER 



IS PRINT COUNTER ZERO' 



2-8) 



DO CARRIAGE RETURN, LINE FEED 



A0001565 
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M COMMAND, MEMORY INSPECT/CHANGE (Continued) 



A0001565 




PRINT MEMORY ADDRESS AND CONTENTS 



ACCEPT NEW INPUT 



UPDATE MEMORY DATA 



WAS LINE TERMINATION A CARRIAGE RETURN? 



GO TO MONITOR 



2-10 



M COMMAND, MEMORY INSPECT/CHANGE (Concluded) 



A0001566 




DECREMENT MEMORY ADDRESS BY TWO TO LOOK 
AT PREVIOUS WORD 



WAS LINE TERMINATION A MINUS SIGN? 



(P2-10) 



INCREMENT MEMORY ADDRESS BY FOUR TO LOOK 
TWO WORDS AHEAD 



2-10) 
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X0P9, HEX INPUT ROUTINE 







1 














< 
















r 




I 


N 


' 










1 


\ 

Y 

1 


> 


1 








\ 


' 








' 


' 










' 








1 




— »- 





Listing Page: 0016 

C ) ENTER HEX INPUT ROUTINE 



RESET NUMBER INPUT FLAG 



CLEAR ACCUMULATOR 



READ A CHARACTER, XOP 13 



IS THIS A VALID HEX INPUT? 



ISOLATE AND ALIGN DIGIT 



SHIFT ACCUMULATOR LEFT FOUR BITS 



ADD NEW HEX DIGIT TO ACCUMULATOR 



INCREMENT INPUT FLAG 




aoooi 546V ( P 2_1 3) >/ (P2-13) ^" 



WAS THE CHARACTER A SPACE, MINUS SIGN, 
OR CARRIAGE RETURN? 



WAS THE CHARACTER A COMMA? 



SET UP ERROR POINTER 



3 RETURN 



2 12 



X0P9, HEX INPUT ROUTINE (Continued) 



^ 



^-5 




CHANGE THE CHARACTER TO A SPACE 



IS IT A NULL CHARACTER? 



RETURN VALUE AND TERMINATOR 



BUMP PAST NULL AND ERROR POINTERS 



C ) RETURN 



RETURN THE TERMINATOR AND GET THE POINTER 



A0001573 



J RETURN 
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XOP 10, HEX OUTPUT ROUTINE 
Listing Page: 0018 

C ) ENTER HEX OUTPUT ROUTINE (ONE DIGIT) 



( ) 




GET VALUETO PRINT 



SET UP DATA 



SET DIGIT COUNT TO 1 



ENTER HEX OUTPUT ROUTINE (FOUR DIGITS) 



GET VALUETO PRINT 



A0001547 



SET DIGIT COUNT TO 4 



CONVERT CHARACTER TO ASCII 



WRITE A CHARACTER XOP 12 



ALIGN NEXT DIGIT 



DECREMENT DIGIT COUNT 



IS DIGIT COUNT ZERO? 



RETURN 



2-14 



A0001560 



S COMMAND, SINGLE STEP EXECUTION 
Listing Page: 0019 



( > 



ENTER SINGLE STEP 



SET UP TRACE FLAG 



INITIATE LOAD INTERRUPT 



RETURN 



2-15 



UNMASKABLE LOAD INTERRUPT 
Listing Page: 0019 

ENTER LOAD 

ARE WE IN SINGLE STEP? 



(P2-18) 




IS THE HALF FLAG ON? 



IS THE STEP FLAG SET? 



I A I GO TO TH 

>• (P 2-3) 



E TOP OF THE MONITOR 



$>. 



2-36) 



AOO01560 
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B COMMAND, BREAKPOINT 
Listing Page: 0020 



CZZD 



ENTER BREAKPOINT HANDLER 



WORD ALIGN ADDRESS 



SAVE THE DATA 



INSTALL XOP 15 



A0001559 



RETURN 
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XOP 15, OUTPUT WP, PC, AND ST CONTENTS 
Listing Page: 0020 

C ) XOPTS ENTRY POINT 



<? 



^ 



UPDATE USER PROGRAM COUNTER 



RESTORE LOCATION 



OUTPUT CONTENTS OF WORKSPACE POINTER, PROGRAM 
COUNTER. AND STATUS 



A ! GO TO THE TOP OF THE MONITOR 

(P 2-3) 



AO001559 
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C COMMAND, CRU INSPECT/CHANGE 











•^ — 


i ^ 




* *4 N 




1 


1 


'' 


^ □ 








" 



A0001571 




Listing Page: 0021 

ENTER CRU INSPECT/CHANGE 



UPDATE CRU BASE REGISTER 



CLEAR THE WORD FLAG 



ISOLATE BIT COUNT 



IS BIT COUNT ZERO? 



IS BIT COUNT LESS THAN 9? 



SET THE WORD FLAG 



COMBINE BIT COUNT WITH COMMAND 



STORE CRU DATA 



PRINT CRU DATA READ 



GET NEW CRU DATA 



WAS THE DATA A CARRIAGE RETURN? 



2-3) 



GO TO THE MONITOR 



(P2-20) 
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C COMMAND, CRU INSPECT/CHANGE (Concluded) 




AOOQ1572 




ARE WE USING EIGHT BITS OR LESS? 



ALIGN THE BYTE 



COMBINE THE LOAD COMMAND WITH THE NUMBER OF BITS 



V, 



G J GO GET MORE CRU DATA 

(P2-19) 
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W COMMAND, WORKSPACE REGISTER INSPECT/CHANGE 
Listing Page: 0023 




ENTER WORKSPACE REGISTER INSPECT/CHANGE 



GET THE WORKSPACE POINTER 



2-24) 




IS THE COUNT ZERO? 



GO TO PRINT ALL REGISTERS 



SAVE THE REGISTER NUMBER 



FORM REGISTER ADDRESS 



OUTPUT REGISTER CONTENTS 



GET NEW CONTENTS 



WAS THE DATA A CARRIAGE RETURN? 



GO TO THE MONITOR 
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WAS THE DATA A SPACE? 



SET UP NEXT REGISTER 



UPDATE REGISTER CONTENTS 



SET UP PRESENT REGISTER MINUS 1 



A0001561 



2-22) 
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W COMMAND, WORKSPACE REGISTER INSPECT/CHANGE (Continued) 



^ 




Y 



\y (p 2-3) 



WAS REGISTER JUST UPDATED? 



GO TO THE MONITOR 



A0001562 



N/ (P2-21) 



CHANGE REGISTER NUMBER TO R 1 



UPDATE REGISTER ADDRESS 



GO PROCESS NEW REGISTER 
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W COMMAND, WORKSPACE REGISTER INSPECT/CHANGE (Continued) 



A0001562 




WAS REGISTER 15 JUST UPDATED? 



A ! GOTO THE MONITOR 

(P 2-3) 



CHANGE REGISTER NUMBER TO R + 1 



UPDATE REGISTER ADDRESS 



J ! GO PROCESS NEW REGISTER 

(P2-21) 
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W COMMAND, WORKSPACE REGISTER INSPECT/CHANGE (Concluded) 



V 



lj 




<P. 



SET REGISTER NUMBER TO ZERO 



PRINT CONTENTS OF THE REGISTER 



UPDATE NEXT REGISTER ADDRESS 



UPDATE REGISTER NUMBER 



HAVE 16 REGISTERS BEEN PROCESSED? 



GO TO THE MONITOR 



2-3) 



A0001563 
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R COMMAND, WP, PC, AND ST REGISTERS INSPECT/CHANGE 



Listing Page: 0025 

C . ) ENTER DISPLAY WP, PC, ST REGISTERS 



LJ 



rj 





>/ (P2-3) 



SET LOOP COUNTER TO 3 



SET UP ADDRESS OF WP 



OUTPUT CONTENTS OF REGISTER 



INPUT NEW DATA 



WASTHE DATA A MINUS SIGN? 



WAS THE DATA A CARRIAGE RETURN? 



GO TO THE MONITOR 



A0001553 




UPDATE REGISTER ADDRESS 



DECREMENT LOOP COUNTER 



IS LOOP COUNTER ZERO? 



A \ GO TO MONITOR 

(P 2-3) 
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D COMMAND, TAG DUMP OF MEMORY 
Listing Page: 0026 

ENTER DUMP ROUTINE 




(P 2-3) 



AOO01567 




GET 'IDT' FROM OPERATOR 



IS OPERATOR READY? 



ZERO THE CHECKSUM 



OUTPUT THE IDT TO CASSETTE 



UPDATE CHECKSUM 



OUTPUT ENTRY ADDRESS TAG TO CASSETTE 



OUTPUT MEMORY DATA TO CASSETTE 



HAS THE LAST ADDRESS BEEN DUMPED? 



END OF RECORD? 



UPDATE AND INVERT CHECKSUM 



OUTPUT CHECKSUM TO CASSETTE 



2-27) 



2-26 



D COMMAND, TAG DUMP OF MEMORY (Concluded) 



A0001568 



V 





ZERO THE CHECKSUM 



OUTPUT F TAG AND CARRIAGE RETURN 



ARE WE DONE WITH THE DUMP? 



PRINT LINE FEED AND DELETE 



(P 2-26) 



OUTPUT EOF AND NULLS TO CASSETTE 



<3 



A I GO TO THE MONITOR 

{P 2-3} 
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L COMMAND, 990 TAG FORMAT LOADER 
Listing Page: 0029 

C ) ENTER TAG LOADER 



GET TAG OFF CASSETTE 




Y^ 


1 


N 

1 






1 








\ 


1 




IS THIS A VALID TAG? 



IS THIS A COLON? 



PRINT OUT ERROR MESSAGE 



GO TO THE MONITOR 



IS THIS AN 'F'TAG 



READ UNTIL END OF THE RECORD 



PRGCESSTHE TAG 



GET DATA AND PUT IN MEMORY 



A0001569 
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F COMMAND, FIND VALUE IN MEMORY 



Listing Page: 0034 

( ) ENTER FIND COMMAND 



WORD ALIGN STARTING ADDRESS 



SET UP COMPARE COMMAND 



SET UP'INCT'COMMAND 




A0O01552 




ARE WE LOOKING FOR A WHOLE WORD? 



CHANGE COMPARE COMMAND TO COMPARE BYTE 



CHANGE'INCT'COMMANDTO INC COMMAND 



BYTE ALIGN DATA 



EXECUTE INCREMENT COMMAND 



EXECUTE COMPARE COMMAND 



DID THE DATA COMPARE? 



OUTPUT MATCHING ADDRESS 



HAVE WE REACHED OUR LAST ADDRESS? 



GO TO THE MONITOR 
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H COMMAND, HEX ARITHMETIC 
Listing Page: 0035 

( ) ENTER HEX ARITHMETIC COMMAND 



A7 



LJ 



ADD THE TWO NUMBERS 



PRINT THE TOTAL 



GET THE DIFFERENCE 



PRINT THE DIFFERENCE 



\S (P 2-3) 



GO TO THE MONITOR 



T COMMAND, SET BAUD RATE 
Listing Page: Q036 

( ) ENTER T COMMAND 

x 

INVERT THE ASR FLAG 



V 



A I GO TO THE MONITOR 

(P 2-3) 



A0001551 
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XOP 0, MICROTERMINAL OUTPUT ROUTINE 
Listing Page: 0037 

( ~~) ENTER XOP o 




DO WE USE A DELAY? 



GO THROUGH TIMER LOOP 



SET UP COUNTER TO 4 



STRIP OUT MSB NIBBLE AND CONVERT TO ASCII 



PUT OUT CHARACTER TO MICROTERMINAL , XOP 12 



SET UP NEXT NIBBLE 



DECREMENT COUNTER 



HAVE WE PUT OUT 4 HEX CHARACTERS? 



RETURN 



A0001544 



2-31 



r— ) 

y_ 

y 

\\ 



XOP 1, MICROTERMINAL INPUT ROUTINE 
Listing Page: 0038 

ENTER XOP 1 



SET TRANSFER COUNTER TO 4 



START WITH DATA EQUAL TO ZERO 



SHIFT DATA LEFT FOUR BITS (1 NIBBLE) 



GET NEXT FOUR BITS FROM MICROTERMINAL, XOP 9 



COMBINE NEW DATA WITH OLD DATA 



DECREMENT TRANSFER COUNT 



HAVE FOUR NIBBLES BEEN INPUT? 



J RETURN 



A0001545 



2-32 



Z COMMAND, MICROTERMINAL COMMAND SCANNER 
Listing Page: 0039 

ENTER Z COMMAND FROM MONITOR 




GET A CHARACTER FROM THE MICROTERMINAL XOP 9 



CLEAR THE DELAY FLAG AND STEP FLAG 



SET THE HALT FLAG 



IS THIS REALLY THE MICROTERMINAL? 



GO TO THE MONITOR 



DO WE HAVE A VALID COMMAND? 



GET ADDRESS OF COMMAND FROM A TABLE AND GO 
EXECUTE AT THAT ADDRESS 



CZD 



A0001554 



V 



ENTER PROGRAM COUNTER (EPC) 



GET PROGRAM COUNTER FROM MICROTERMINAL , XOP 1 



B I WAIT FOR NEXT MICROTERMINAL COMMAND 
(P 2-33) 



2-33 



Z COMMAND, MICROTERMINAL COMMAND SCANNER (Continued) 



ENTER STATUS (EST) 



STORE STATUS, XOP 1 



<P, 



B J WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



ENTER WORKSPACE POINTER (EWP) 



STORE WORKSPACE POINTER, XOP 1 



<2 



B | WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



D 



0,. 



DISPLAY PROGRAM COUNTER (DPC) 



DISPLAY PROGRAM COUNTER, XOP 



WAIT FOR NEXT MICROTERMINAL COMMAND 



2-33) 



A0001555 



( ) 



DISPLAY STATUS (DST) 



DISPLAY STATUS, XOP 



<?. 



B I WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 
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Z COMMAND, MICROTERMINAL COMMAND SCANNER (Continued) 



A0001556 



<3 



DISPLAY WORKSPACE POINTER (DWP) 



OUTPUT WORKSPACE POINTER, XOP 



B I WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



c 



ENTER MEMORY ADDRESS (EMA) 



STORE MEMORY ADDRESS, XOP 1 



czp 

J 



<3 



ENTER MEMORY DATA (EMD) 



GET DATA AND PUT IN MEMORY, XOP 1 



ENTER MEMORY DATA AND INCREMENT ADDRESS (EMDI) 



GET DATA FROM MICROTERMINAL AND PUT IN MEMORY PLUS 
INCREMENT ADDRESS, XOP 1 



GET DATA OUT OF MEMORY 



L j GO OUTPUT DATA TO MICROTERMINAL, XOP 
(P 2-38) 
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Z COMMAND, MICROTERMINAL COMMAND SCANNER (Continued) 




STEP RT 



OUTPUT PROGRAM COUNTER TO MICROTERMINAL, XOP 



W 



GET THE DATA AT THE PC ADDRESS 



SET THE DELAY FLAG 



L J GO OUTPUT DATA TO THE MICROTERMINAL 

(P 2-38) 



J STEP 



SET THE STEP FLAG 



CLEAR THE HALF FLAG 



EXECUTE ONE INSTRUCTION 



A0001557 



3 RETURN 
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Z COMMAND, MICROTERMINAL COMMAND SCANNER (Continued) 






<?. 



DISPLAY CRU (DCRU) 



GET CONTROL WORD FROM THE MICROTERMINAL ,XOP 1 



CONSTRUCT STCR COMMAND 



EXECUTE STCR COMMAND 



L 1 GO OUTPUT DATA TO THE MICROTERMINAL 

(P 2-38) 



A0001557 
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Z COMMAND, MICROTERMINAL COMMAND SCANNER (Concluded) 



c ) 


' 


f 




' 


1 




1 


1 




1 


1 



ENTER CRU (ECRU) 



GET CRU DATA FROM MICROTERMINAL, XOP 1 



SET UP LDCR COMMAND 



EXECUTE LDCR COMMAND 



B i WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



V, 



( ) HALT 



^ 



SET THE DELAY FLAG 



OUTPUT THE PROGRAM COUNTER, XOP 



GET THE DATA OUT OF MEMORY 



OUTPUT THE DATA , XOP 



^ 



B I WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



A0001558 
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SECTION 3 
TIBUG LISTING 



The TIBUG listing is arranged in the following order: 

Listing 
Page 



Title 



0001 
0004 
0008 
0009 
0010 
0012 
0013 
0014 
0016 
0018 
0019 
0019 
0020 
0020 
0021 
0023 
0025 
0026 
0029 
0034 
0035 
0036 
0037 
0038 
0039 



System Definition 

System Initialization and Command Scanner 

XOP 1 3, Read Character 

XOP 1 2, Write Character 

System Messages 

XOP 1 1, Read a Character and Print It Out (Echo) 

XOP 14, ASCII Message Output 

M Command, Memory Inspect/Change 

XOP 9, Hex Input Routine 

XOP 10, Hex Output Routine 

S Command, Single Step Execution 

Unmaskable Load Interrupt 

B Command, Breakpoint 

XOP 1 5, Output WP, PC, and ST Contents 

C Command, CRU Inspect/Change 

W Command, Workspace Register Inspect/Change 

R Command, WP, PC, and ST Registers Inspect/Change 

D Command, Tag Dump 

L Command, 990 Tag Format Loader 

F Command, Fi nd Value in Memory 

H Command, Hex Arithmetic 

T Command, Set Baud Rate 

XOP 0, Microterminal Output Routine 

XOP 1, Microterminal Input Routine 

Z Command, Microterminal Command Scanner 



Flow Chart 
Page 



2-3 
2-4 
2 5 

2-6 

2-7 

2-8 

2-12 

2-14 

2-15 

2-16 

2-17 

2-18 

2-19 

2-21 

2-25 

2-26 

2-28 

2-29 

2-30 

2-30 

2-31 

2-32 

2-33 
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TIBUG LISTINGS 

If PUG SDSMAO 947075 *E< 1 6: 35: 23 FRIDAY, ...I UN 1/. 1977. 

*»■# SYSTEM DEFINITION a-** PAGE uOOl 

0008 IDT TIBUG 

0004 * 

0005 * TIBUG WORKSPACE DEFINITION 

0006 * 

0007 FFBO MREGS EOT! >FFBO 

0008 FFBA EREOS EQU >FFBA 

0009 FFC6 I REGS EQU >FFC6 

0010 FFD2 DUMYBF EQU >FFD2 
001.1 FFD4 XREGS EQU >FFD4 
OH 12 FFF4 ASR EQU >FFF4 

0013 FFF6 DUMPFG EQU >FFF6 

0014 FEES STEPFG EQU >FFF8 

0015 FFFA HAETFG EQU >FFEA 

00 1 6 * 

0017 # USER RAM IS FROM >FEOO TO >FFAE 

00 1 8 »■ 

0019 * TIBUG RESERVED RAM IS FROM >FFBO TO >FFEE 
00 20 # 

002 J * WORKSPACE UT I L I 7. AT 1 ON 

00 2 2 # 

0023 * MREGS (MONITOR SCANNER WORKSPACE) 

0024 * ADDRESSES FFBO- EFCE (16 REGISTERS) 
OiT?5 * MODULES WHICH UTILIZE: 

0026 ****** MONTP - SYSTEM INZ AND COMMAND SCANNER 

0027 * * MIC = MEMORY INSPECT/CHANGE 

0023 * * EXEC = EXECUTE/SINGLE STEP/BREAKPOINT 

0029 * * GENTRY = CRU INSPECT/CHANGE 

0030 * # WENTY = USER WORKSPACE INSPECT/CHANGE 

0031 * * RENTY = STATUS INSPECT/CHANGE 
<X>32 * * DENTRY = DUMP MEMORY TO CASSETTE 

0033 * * GENTRY = LOAD MEMORY TO CASSETTE 

0034 * * FIND = FIND WORD /BYTE 

0035 # * ARITH = HEX ARITHMETIC 

0036 #*#*** TENTRY ■- TOGGLE TERMINAL FLAG 
O Ci 3 7 * 

0038 # ALL MODULES WHICH USE MREGS 

0039 * ARE TIBUG COMMAND PROCESSORS 

0040 * 

0041 * EREGS - ECHO ROUTINE WORKSPACE 

0042 * ADDRESSES FFBA-EFOO (4 REGISTERS) 

0043 * 

0044 * I REGS - I/O WORKSPACE 

0045 * ADDRESSES FFC6 -FFBO (6 REGISTERS) 

0046 * UTILIZED BY: 

0047 ****** READ - READ 1 ASCII CHARACTER FROM TMS9902 

0048 »-**#** WRITE - WRITE 1 A3CU CHARACTER TO TMS9902 

0049 * 

0050 * XREGS - XOP ROUTINES WORKSPACE 

0051 * ADDRESSES FFD4-FFE0 (7 REGISTERS) 

0052 * UTILIZED BY ALL XOP PROCESSORS EXCEPT READ'' 

0053 * AND -WRITE" 

0054 * 

0055 -a.************************************************* 
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TIBUG 
VM *** SYSTEM 

0057 
0059 ^ 

0059 0000 
°0002 

0060 0004 
y, 0006 

* ' „ 0008 

OOP A. 

u/*^to661~ 0000 

OOOE 

U.M110 

' 0012 

006Z- 0014 

„„_,, ." 00 1 6 

00 1 8 
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FFBO 
014E 



* INTERRUPT VECTORS 

DATA MREGS, I NIT 



FFFF.V.^ V 

FfTT V" 
FFFF \ V 
FFFF * 



■\ 



DATA -1,- 1,-1,-1 




DATA >FF68 , >FF88 , >FF8C , >FFAC 

DATA - 1 , - 1 , -1 , -1 , -1 , -1 , -1 , - 1 , -1 , -1 



/ M7 U eci 



J, y u S& £> 



DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1 



, f 0038 
00 3 A 
0064V 003C 
*" 003E 



FFFF\% 
FFFF. S \V 



DATA -1,-1 



\l 



Uj P » 3 2 
pc o3 
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TIBUG 
"*«•* SYSTEM 

0066 

<")(') 6 7 r 0040 

«%042 

0068 .0044 

1*0046 

C;2.V"*0069 J0O48 

2 S — «004A 

.«004C: 

"X>04E 

0070 />050 

"'0052 

5G>056 
/• P058 
b H>05A 

a j:»osc 

- !i 005E 
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FFD4 t Z© 
06FE y a.\ 
FFD4,<?-*~ 
0724' CI 
FFFF„ ?» 
FFFF 2 5 
FFFF^if 
FFFF T»? 
FFFF^ f 
FFFF *2.n- 
FFFF 2,^1 



* XOP VECTORS 

DATA XREGS, OTPTEN 



FFFF 



•? •&* 



007 



^060 



o2f" 

-J p— 0072 P064 

U 3 ^ &066 

OS 1 / 0073 0068 

006A 

O 3 £-0074 006C 

006E 

3g 0075 0070 

0072 

C)3/k>076 0074 

0076 

Qh C 0077 0078 

007A 

0078 007C 

6 'if- • ►00 7E 



.- PC 



FFFF t* 

FFFF 'I.,® 

FFFF,^e 

FFFF k,? 

FFD4 

0332' 

FFD4 - tu v 

02CE 

FFD4 

033C-' 

FFBA 

0258" 

FFC6 

01B6-' 

FFC6 

01A6-' 

FFD4 

025E-' 

FFBO 

0392 ■' 



DATA XREGS, INPTEN 
DATA -1,-1,-1,-1 

DATA -1,-1,-1,-1,-1 



DATA XREGS, WHXETY 
DATA XREGS, RHEN7Y 
DATA XREGS, WHENTY 
DATA EREGS,ECHOEN 
DATA IREGS,WENTRY 
DATA IREGS,RENTRY 
DATA XREGS, MENTRY 
DATA MREGS,XOPENT 



XOP = MICRO TERMINAL OUTPUT 
XOP 1 = MICRO TERMINAL INPUT 
XOPS 2-7 = NOV DEFINED 

-1,-1 



XOP 8 = WRITE 1 HEX DIGIT 
XOP -9 = HEX # INPUT 
XOP 10 = HEX # OUTPUT 
XOP 11 = ECHO 
XOP 12 = WRITE CHARACTER 
XOP 13 = READ CHARACTER 
XOP 14 = MESSAGE OUT 
XOP 15 



Cars uve 2. -Wn^ 1 >* ^ ^ c 
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0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0093 
0099 
0100 
0101 
0102 

1 03 

1 04 
0105 
0106 
0107 
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1 08 

1 09 

1 1 
0111 

0112 
01 13 

0114 
0115 
0116 
1 1 7 
0118 
0119 
0120 
0121 

0122 
0123 

0124 

0125 
0126 
0127 
0128 

1 29 

1 30 

0131 
0132 



0080 
0082 
0084 
0086 
0088 
008A 
008C 
008E 
0090 
0092 
0094 
0096 
0093 
00 9 A 
009 C 
009E 
OOAO 
00A2 
00A4 
00A6 
00A8 
OOAA 
OOAC 
OOAF 
00 BO 



OOP 2 
00B4 
00B6 
00 B8 



0000 
0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
OOOB 

oooc 



0080' 

02E0 

FFBO 

04C1 

0202 

FFFC 

CCB1 

020 1 

0368 ' 

CC81 

0209 

0080 •' 

04C1 

064 1 

16FE 

C309 

IF 15 

1 606 

2F45 

0235 

5A00 

1 602 

0460 

078E' 

2FA0 

0227- 



04 CO 
04 C 3 
0208 
000 1 



# SYSTEM INT AND COMMAND SCANNER 

DXOP OTPT.O 

DXOP INPT,1 

DXOP WHX1,3 

DXOP RHEX,9 

DXOP ECHO, 11 

DXOP MESG, 14 

DXOP READ, 13 
START EQU 
EREG EQU 
STOP EQU 1 
KEY EQU 2 
COUNT EQU 3 
VALUE EQU 4 
CHAR EQU 5 
I COUNT EQU 6 
POINT EQU 7 
WDBDY EQU 3 
LINK EQU 11 
CRUBAS EQU 12 
* 

# MONITOR ENTRY POINT >0080 



MONTOP EQU * 

LWPI MREGS 



TICKO 



TICK1 



CLR 

LI 

MOV 
LI 

MOV 
LI 



Rl 

R2,>FFFC 

*R1+,*R2+ 
R1,L0AD 

Rl , *R2+ 
9 , MONTOP 



CLR Rl 

DECT Rl 

JNE TICK1 

MOV R9,R12 

TB 21 

.JNE SCAN 

READ CHAR 

CI CHAR,>5A00 



JNE 



SCAN 
6MTIN 



SCAN MESG ©PROMPT 



* INITIALIZE START, STOP 

-» 

CLR START 
CLR COUNT 
LI WDBDY, 1 



COMMAND SCAN ENTRY 
INT WP 

REG 1 = 
REG 2 = FFFC 

PUT ADDR OF MREGS IN FFFC 
REG 1 "ADDR OF LOAD FOR S1NGI. 

PUT ADDR OF INIT IN Ff FE 
INT RETURN POINTER 

SET UP TICK COUNT 

DEC COUNTER, 32 K LOOPS 

IF NOT DONE, .JUMP BACK 

REG 12 = 80 = CRU OF 9902 

IS RECIEVE BUFFER REG FULL 

IF NO, GO ON 

IF YES, GET CHAR FROM U TERM] 

DO WE HAVE A ■" Z " , I.E. MICRO! 

IF NO WAIT FOR REG COMMAND 
GO 10 MICRO TERMINAL DSR 

OUTPUT PROMPT 



KEY, ETC 



E STEP 



NAL 
ERM 



WORD BOUNDRY REG 



* WAIT FOR A COMMAND ENTRY 
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0133 
0134 
0135 



00BA 2EC5 
OOBC 2FA0 
OOBE OlFC' 

Ol 36 OOCO 06A0 
0002 OOFA' 

0137 

1 38 

1 39 



0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

1 50 

0151 

0152 

0153 

0154 

0155 

1 56 

0157 

0158 

0.159 

0160 

0161 

1 62 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

1 80 

0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0139 



00C4 

00C5 

00C6 

00C8 

00C9 

OOCA 

OOCC 

OOCD 

OOCE 

OODO 

00D1 

00D2 

00D4 

00D5 

00D6 

00D8 

00D9 

OODA 

OODC 

OOBD 

OODE 

OOEO 

00E1 

00E2 

00E4 

00E5 

00E6 

00E8 

00E9 

OOEA 

OOEC 

OOED 

OOEE 

OOFO 

00F1 

00F2 

00F4 



00F6 
OOFS 
OOFA 
OOFC 
OOFE 
0100 
0102 
1 04 



4D 
03 

0268- 
57 
01 

03FE' 
45 
00 

0366' 
42 
01 

0386 ' 
53 
00 

0360' 
4C 
01 

059A' 
44 
07 

04B0' 
43 
03 

03B0' 
52 
00 

0474' 
46 
07 

06B6 ' 
48 
03 

06E4' 
54 
00 

06F8 ' 

0000 



022B 
0003 
C29B 
1322 
917B 
16FA 
D1BB 
C2DB 



ECHO CHAR 
MESG ©SPACE 1 



BL 



6SRCH 



* COMMAND SEARCH TABLE 
* 

TEXT 'M' 
BYTE 3 
DATA M 
TEXT W 
BYTE 1 
DATA W 
TEXT E' 
BYTE 
DATA E 
TEXT 'B- 
BYTE 1 
DATA B 
TEXT 'S' 
BYTE 
DATA S 
TEXT 'L' 
BYTE 1 
DATA L 
TEXT -D-' 
BYTE 7 
DATA D 
TEXT '€■■' 
BYTE 3 
DATA C 
TEXT 'R- 
BYTE 
DATA R 
TEXT 'F' 
BYTE 7 
DATA F 
TEXT 'H' 
BYTE 3 
DATA H 
TEXT '1' 
BYTE 
DATA T 
DATA 



RECEIVE AND ECHO A CHARACTER 
OUTPUT SPACE 



MEMORY INSPECT/CHANGE 

2 POSSIBLE INPUTS 

ENTRY POINT 

USER STATUS INSPECT /CHANGE 

ONE HEX INPUTS 

EXECUTE 



EXECUTE WITH BREAKPOINT 
ONE HEX INPUT 

EXECUTE SINGLE STEP 



LOAD MEMORY FROM CASSETTE 



DUMP I MEMORY TO CASSETTE 
3 HEX INPUTS 

CRU INSPECT/CHANGE 



USER WORKSPACE INSPECT/CHANGE 

FIND BYTE/ WORD 

HEX ARITHMETIC 

733ASR TERMINAL COMMAND 

END OF TABLE 



* COMMAND SEARCH ROUTINE 

SRCHLP AI LINK, 3 UPDATE POINTER 

SRCH MOV *LINK,10 SEARCH FAIL? 
•JEQ ERR4 YES, ERROR 

CB *LINK+,CHAR INPUT MATCH TABLE ENTRY? 
■JNE SRCHLP NO, TO NEXT TABLE ENTRY 
MOVB *LINK+, I COUNT NUMBER OF HEX INPUT FIELDS 
MOV *L INK, LINK GET ENTRY ADDRESS 

* I COUNT SPECIFIES NUMBER OF HEX INPUT FIELDS 
* 
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0190 
0191 

0192 
0193 
0194 
0195 

0196 
0197 
019© 

0199 
0200 
0201 

0202 

0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 

0211 
0212 

0213 
0214 

0215 
0216 

0217 

0218 
0219 
0220 
022 1 
0222 
0223 
0224 
0225 

0226 
0227 
0228 
0229 
0230 

023 1 
0232 
0233 
0234 
0235 
0236 
0237 
0238 



0106 
1 03 
010A 
010C 
010E 
0110 
0112 
0114 
0116 
0118 
01 1A 
011C 
011E 
0120 
0122 
0124 
0126 
0128 
012A 



012C 
012E 
0130 
0132 
0134 
0136 
0138 
013A 
1 3C 
013E 
0140 
0142 
0144 
0146 
0148 
014A 
01 40 



0986 

0207 

FFBO 

0916 

1 70D 

2E44 

0122' 

0136' 

CDC4 

0583 

0285 

ODOO 

1305 

10F5 

05C7 

0285 

ODOO 

16F7 

045B 



04C0 

100B 

0200 

0001 

1003 

0200 

0002 

1005 

0200 

0003 

1002 

0200 

0004 

2FA0 

01F0' 

2E00 

1 099 



01 4E 
0150 
0152 
0154 
0156 
1 58 
015A 
1 5C 



0201.: 
FFF4 
04FC 
0730 
04F0 
04DC 
0200 
OOSO 



SRL I COUNT, 8 ALIGN COUNT 
LI POINT, MREGS INT POINTER 



INLOOP SRL I COUNT, 1 
,JNC OEXIT 

HEX IN RHEX VALUE 

DATA NULL,ERR2 



DONE? 

IF YES, GO TO COMMAND SCANNER 

ACCEPT HEX ENTRY 



MOV VALUE, *POINT+ SAVE HEX INPUT 



CNT 



NULL. 



INC COUNT 

CI CHAR,>ODOO 

JEQ CEXIT 
.JMP INLOOP 
I NOT POINT 
CI CHAR,>ODOO 



...INE CNT 

CEXIT B *LINK 
# 

* ERROR HANDLER 
* 

ERRO CLR EREG 

..IMP ERROR 

ERR1 LI EREG, 1 

.JMP ERROR 

ERR2 LI EREG, 2 

JMP ERROR 

ERR3 LI EREG, 3 

JMP ERROR 

ERR4 LI EREG, 4 

ERROR MESG ©ERROUT 



COUNT I # ENTRIES 
END OF INPUT? 

YES, TO COMMAND PROCESSOR 
WAIT FOR NEXT INPUT 
UPDATE POINTER 
NO INPUT? 

NO, DEFAULT PARAMETER 
YES, TO COMMAND PROCESSOR 



LOAD ERROR- INVALID TAG 
LOAD ERROR-CHECKSUM 

TERM. CHARACTER ERROR 

DUMP ADDRESS ERROR 

INVALID COMMAND ERROR 
PRINT ERROR BANNER 
PRINT ERROR NUMBER 



WHX1 EREG 
JMMONT ...IMP MONTOP 
* 

* UART INITIALIZATION ROUTINE— USER INPUTS 

* ONE 'A . BAUD RATE DETECTED FROM LENGTH 

* OF THE START BIT. 
# 

INIT LI R12,ASR 



015E 1D1F 



CLR *R12+ 
SETO *R12+ 
CLR *R12+ 
CLR *R12 
LI CRUBAS,>80 



* INITIALIZE TMS9902 FOR: 
* 

* 

SBO 31 



REG 12 = STARTING ADDR 

CLEAR ASR 
RESET DUMP FLAG 
CLEAR STEPFG 
CLEAR HALTFG 
SET CRU BASE REG. 



»BAUD RATE 

*7 BITS/CHARACTER 

*EVEN PARITY 

»2 STOP BITS 

♦POLLED OPERATION 

RESET TMS9902 UART 



£4 



TIBUG 
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SDSMAC 947075 *B 16: 
SEARCH AND SYSTEM INZ»^ 



5:23 FRIDAY, 



JUN 17, 1977. 



PAGE 0007 



0239 

0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 

0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 

0259 
0260 

0261 
0262 

0263 
0264 

0265 

0266 

0267 

0268 



0160 
0162 
0164 
0166 
0168 
016A 
016C 
016E 
0170 



0172 
0174 
0176 
0178 
017A 
017C 

017E 
0180 
0182 
0184 
0186 
0188 
018A 
018C 
018E 
0190 
0192 
0194 
0196 
0193 
019A 
019C 
019E 
01A0 
01A2 
01A4 



3220 

01A4' 

1E0D 

04C3 

1F0F 

13FE 

0583 

1F0F 

16FD 



0207 
0194' 
8DC3 
1202 
05C7 
10FC 
017E' 
3317 
C1D7 
0287 
01A0 
1602 
0720 
FFF4 
2F45 
2FA0 
022B' 
10DC 
0040 
OODO 
0070 
01A0 
0200 
04D0 
0400 
0633 
62 



LDCR @CR,8 

SBZ 13 

CLR COUNT 

TSTSP TB 15 

JEQ TSTSP 

SPLOOP INC COUNT 

TB 15 

■JNE SPLOOP 



INITIALIZE rMS9902 CONTROL REG. 

DO NOT INT INTERVAL REG. 

RESET LOOP COUNT 

SPACE? 

NO, .JUMP BACK 

TIME THE START BIT 

FALL. OUT ON A MARK 



♦ TABLE SEARCH FOR BAUD RATE 



LI 



POINT, TABLE SET POINTER TO TABLE 



BDLOOP C COUNT,^POINT+ MATCH? 

OLE MATCH YES, SET BAUD RATE 

INCT POINT NO, UPDATE POINTER 

..IMP BDLOOP 
MATCH EQU * 

LDCR ♦POINT, 12 INT. REC /XMT. DATA RATE 

MOV ♦POINT, POINT 

CI POINT, >1A0 1200 BAUD ? 



.JNE BANNER 
SETO @ASR 

BANNER READ CHAR 

MESG ©LOGON 

JMP JMMONT 
TABLE DATA >40,>D0 

, DATA >70,>1A0 

DATA >200,>4D0 

DATA >400,>638 

CR BYTE >62 



LEAVE ASR FLAG ALONE 
SET 733ASR FLAG 



PRINT LOG ON MESSAGE 

TO TOP OF MONITOR 
2400 BAUD 

1200 BAUD 

300 BAUD 

110 BAUD 



*9 
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0271 WW*********************************************** 

0272 * READ CHARACTER — XDP R, 13 

0273 * ~ NORMAL RETURN 

0274 * 

0275 * READ WAITS FOR A CHARACTER TO BE ASSEMBLED IN 

0276 * THE UART. THE CHARACTER IS PLACED IN THE LEFT 

0277 # BYTE OF USER REGISTER R. THE RIGHT BYTE IS 

0278 * ZEROED. ALL ERRORS ARE IGNORED. 

0279 ##**#*#*######*#*#***#**#***#*#***#####*####**•■«•#* 

0280 # 

0281 01A6 020C RENTRY LI CRUBAS,>80 SET CRU BASE REG. 
01A8 0030 

0282 01AA 1F15 TB 21 RECEIVE BUFFER REG. FULL? 

0283 01 AC 16FC .JNE RENTRY NO, LOOP 

0284 01AE 04DB CLR *LINK 

0285 01 BO 36 IB STCR *LINK,8 

0286 01B2 1E12 SBZ 18 

0287 01B4 0330 RTWP 
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I 'A OK 000? 



0290 






0291 






0292 






0293 






0294 






0295 






0296 






0297 






0298 






0299 






0300 






030 1 






0302 


01B6 


020A 




1 B8 


0EA6 


0303 


01BA 


020C 




1 DC 


0080 


0304 


01 BE 


1D10 


0305 


01 CO 


1 F 1 6 


0306 


01C2 


1 6F9 


0307 


01C4 


321B 


0308 


01C6 


D2DB 


0309 


1 C8 


1E10 


0310 


01CA 


098B 


0311 


1 CC 


028B 




1 CE 


OOOD 


03 1 2 


1 DO 


1 608 


03 1 3 


01D2 


0A3A 


0314 


01D4 


1F16 


0315 


01D6 


16FE 


03 1 6 


01D8 


1F17 


0317 


01 DA 


1 6FC 


0318 


01 DC 


060A 


03 1 9 


01DE 


16FE 


0320 


01E0 


0380 


0321 


01E2 


C2E0 




01E4 


FFF6 


0322 


01E6 


1 303 


0323 


01E8 


C2E0 




01EA 


FFF4 


0324 


01 EC 


1 6F3 


0325 


01EE 


0380 



* WRITE CHARACTER — - XOP R,12 

* NORMAL RETURN 

* 

* TRANSMIT THE CHARACTER IN THE LEFT BYTE OF 

* USER REGISTER R. IF THE CHARACTER IS A 

* CARRIAGE RETURN, THE ROUTINE WAITS 200 MSEC FOR 

* THE CARRIAGE TO RETURN. IF THE TERMINAL IS 

* A 733ASR AS DENOTED IN "I HE T COMMAND, EACH 

* CHARACTER IS PADDED WITH 25 MSEC TO REDUCE 

* THE TRANSFER RATE TO 300 BAUD. 
*##*#*###*####*#*#*###*&##*#####*#*##**#*##)( »#)!•# 

WENTRY LI RIO, 3750 



LI 



CRUBAS,>80 



SBO 16 
TB 22 
ONE WENTRY 
LDCR *LINK,8 
MOVB *L INK, LINK 
SBZ 16 
SRL LINK, 8 
CI LINK,>000D 



SET CRU BASE REG. 

SET RTSON 

TRANSMIT BUFFER REG. EMPTY i 
NO, WAIT UNTIL IT IS 
CHARACTER l"0 UART 

RESET RTSON 

CARRIAGE RETURN 

NO, SKIP 

WAIT FOR XM I SSI ON TO END 



ONE ASR733 

SLA RIO, 3 

WL00P1 TB 22 

ONE WLOOP 1 

TB 28 

,..INE WLOOP 1 

WL00P2 DEC RIO WAIT LOOP 

ONE WL00P2 

RTWP 

ASR733 MOV ©DUMPFCLINK IN DUMP ROUTINE 



.JEQ WEXIT 

MOV @ASR,LINK 

.JNE WLOOP 1 
WEXIT RTWP 



YES, IGNORE ASR FLAG 
ASR733 ? 

YES, WAIT 3 NULLS 
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0328 






0329 






0330 






0331 






0332 






0333 






0334 


01F0 


OD 




01 Fl 


OA 


0335 


01F2 


45 




01F3 


52 




01F4 


52 




01F5 


4F 




01F6 


•_•!*:! 




01F7 


20 


0336 


01F8 


00 


0337 


01F9 


20 




01 FA 


20 


0338 


01FB 


20 


0339 


01FC 


20 


0340 


01FD 


00 


0341 


01FE 


OD 




01FF 


OA 


0342 


0200 


42 




0201 


50 


0343 


0202 


00 


0344 


0203 


49 




0204 


44 




0205 


54 




0206 


3D 


0345 


0207 


00 


0346 


0208 


on 




0209 


OA 


0347 


020A 


52 




020B 


45 




020C 


41 




020B 


44 




020E 


59 




020F 


20 




02 1 


59 




02 1 1 


2F 




0212 


4E 




02 1 3 


20 


0348 


0214 


00 


0349 


0215 


46 


0350 


0216 


on 




0217 


00 


0351 


0218 


OA 




0219 


7F 




021 A 


3A 




02 IB 


on 




02 1 C 


OA 




02 in 


7F 




02 IE 


13 




02 IF 


on 




0220 


14 


0352 


0221 


7F 




0222 


00 


0353 


0223 


12 


0354 


0224 


OA 




0225 


7F 



* SYSTEM MESSAGES FOR MESG' 

* MONITOR MESSAGES 
# 

ERROUT BYTE >D,>A 

TEXT 'ERROR ' 



BYTE 
SPACE4 TEXT ' ' 

SPACE2 TEXT ' 
SPACE 1 TEXT •- ' 

BYTE O 
BPMSG BYTE >D,>A 

TEXT -BP' 

BYTE 
IDTEQ TEXT 'IDT=' 



BYTE O 
READY BYTE >D,>A 

TEXT 'READY Y/N 



BYTE 
FOR TEXT 'F- 
BYTE >D,0 

EOF BYTE >A , >7F 7 >3A , >D > >A , >7F > > 1 3 , >D , > 1 4 



RUBOUT BYTE >7F,0 

DC2 BYTE >12 

NR BYTE >A,>7F,0 
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*** MESSAGE 


S #** 










0226 


00 








0355 


0227 
0228 


0D 
OA 


PROMPT 


BYTE 


>D,>A 


0356 


0229 


3F 




TEXT 


..- •-, .-• 


0357 


022A 


00 




BYTE 





0358 


022B 
022C 


on 

0A 


LOGON 


BYTE 


>D,>A 


0359 


022D 
022E 
022F 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 


54 
49 
42 
55 
47 
20 
52 
45 
56 
2E 
41 




TEXT 


-TIBUG Rl 


0360 


0238 
0239 


OD 
OA 


CRLF 


BYTE 


>D,>A 


0361 


023A 


OOOA 


TEN 


DATA 


10 


0362 


023C 


57 


WS 


TEXT 


'W-' 


0363 


023D 


00 




BYTE 





0364 


023E 


50 




TEXT 


..p.. 


0365 


023F 


00 




BYTE 





0366 


0240 


53 




TEXT 


•■' S ' 


0367 


0241 


00 




BYTE 





0368 


0242 
0243 


OD 
OA 


CRt.FR 


BYTE 


>D,>A 


0369 


0244 


52 


RP 


TEXT 


'R- 


0370 


0245 


00 




BYTE 





0371 


0246 
0247 


OD 
OA 


HP 


BYTE 


>0D , >0A 


0372 


0248 
0249 
024A 
024B 
024C 
024D 


48 
31 
2B 
48 

32 
3D 




TEXT 


'Hl+H2=' 


0373 


024E 


00 




BYTE 





03 74 


024F 
0250 
0251 


20 
20 
48 


HM 


TEXT 


•' H1-H2 




0252 


31 










0253 


2D 










0254 


48 










0255 


32 








0375 


0256 


3D 


EQUSGN 


TEXT 


■■' = ■' 


0376 


0257 


00 




BYTE 






FRIDAY, ...HJN 17, 1977. 



PAGE 0011 
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TIBUG SDSMAC 947075 #B 16:35:23 FRIDAY, JUN 17, 1977. 

*** CHARACTER ECHO *** PACE 0012 

0379 ****#*#*#»#*#*#*#*##########*#####*#**##*##########*######## 

0330 * 

0381 * READ A CHARACTER AND ECHO IT TO THE TERMINAL 

0332 * (XOP R, 11) 

0383 ■» 

0384 * CALLING SEQUENCE: ECHO R 

0385 # NORMAL RETURN 

0386 * 

0387 ##*****#*#**##****##**St*#*###*####*###*-#*#** ####*#*#*«•#*■«### 

0388 DXOP WRIT, 12 

0389 0258 2F5B ECHOEN READ *LINK READ CHARACTER 

0390 025A 2F1B WRIT *LINK ECHO THE CHARACTER 

0391 025C 0380 RTWP 
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71 BUG SDSMAC 947075 *B 16:35:23 FRIDAY, JUN 17, 1977. 

*** ASCII MESSAGE OUTPUT *** PAGE 0013 

0394 ************************************************************ 

0395 * 

0396 * MESSAGE OUTPUT (XOP ©MESSAGE, 14) 
(5397 * 

0398 * CALLING SEQUENCE: MESG ©MESSAGE 

0399 * NORMAL RETURN 

0400 * 

0401 * OUTPUT THE ASCII STRING POINTED TO BY THE ADDRESS IN 

0402 * Rll. OUTPUT IS TERMINATED WHEN A ZERO IS ENCOUNTERED. 

0403 * 

0404 ************************************************************ 

0405 OOOC BUFFER EQU 12 

0406 * 

0407 * 

0408 025E D33B MENTRY MOVB *R11+, BUFFER GET THE CHARACTER 

0409 0260 1302 JEQ EXIT IF 0, EXIT 

0410 0262 2F0C WRIT BUFFER OUTPUT CHARACTER 

0411 0264 10FC JMP MENTRY 

0412 0266 0380 EXIT RTWP RETURN 
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TIBUG SDSMAC 947075 *B 

*** MEMORY INSPECT/CHANGE #** 



16: 



FRIDAY, JUN 17, 1977. 



PAGE 0014 



0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0481 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 
0450 

0451 
0452 
0453 
0454 
0455 
0456 
0457 
0453 

0459 
0460 

0461 
0462 
0463 

0464 
0465 
0466 

0467 



0268 
026A 
026C 
026E 



>270 
0272 
:>274 
0276 
)278 
027A 
)27C 
027E 
>280 
>282 
3284 
:i286 
)288 
>28A 
)28C 
)28E 
)290 
)292 
>294 
0296 
0298 
)29A 
029C 
)29E 
02A0 
>2A2 
>2A4 
>2A6 



0000 
000 1 
0005 



4008 
4048 
0603 
13 IE 



0008 

2FA0 

0238" 

2E80 

2FA0 

0256' 

2E90 

1F15 

1 324 

8040 

1322 

05C0 

0603 

0283 

0004 

1602 

2FA0 

01FB 

C0C3 

13EB 

2FA0 

01FB-' 

1 OEF 

0640 

0285 

2D00 

1 302 



##**#****##**»#**•#■*###*##**##*#**#*# ftftftftft #»*•*•♦ 
ft 

* INSPECT /CHANGE MEMORY - -M" COMMAND 
* 

* OPTIONS: 



1> START ADDRESS, CARRIAGE RETURN — - 
DISPLAY ADDRESS, CONTENTS, AND 
OPEN THE MEMORY LOCATION FOR A CHANGE. 

2) CARRIAGE RETURN — SAME AS 1) BUT THE 
DEFAULT START ADDRESS IS 0000. 

3) START ADDRESS, BLANK (OR COMMA), STOP 
STOP ADDRESS, CARRIAGE RETURN — OUTPUT 
MEMORY CONTENTS FROM START ADDRESS TO 
STOP ADDRESS. DEFAULT VALUES FOR BOTH 
ADDRESSES ARE 0000. 



# 
# 

# 
ft 
# 
ft 
ft 
# 
# 
# 
* 

*«»»ft#####ft*ft»*ft»#ftftft ft #•*######■**■)(■»■»»*»»»#*«#»« 

STARTA EQU 

STOPA EQU 1 

TCHAR EQU 5 

DXOP WHEX, 10 
ft 
ft 

M SZC WDBDY, STARTA WORD ALIGN START ADDRESS 

SZC WDBDY, STOPA WORD ALIGN STOP ADDRESS 



1 INPUT? 

YES, TO MEMORY INSPECT/CHANGE 



NEXT LINE 

PRINT ADDRESS OF FIRST LOCATION 
DELIMITER 

PRINT MEMORY CONTENTS 

IS A CHARACTER IN ? 

IF A KEY IS DEPRESSED, GET OUT 



DEC COUNT 
•JEQ MIC 
ft 

* MEMORY DUMP ROUTINE 

ft 

ML00P1 LI COUNT, 8 

MESG ©CRLF 

WHEX STARTA 
MESG ©EQUSGN 

ML00P2 WHEX *STARTA 

TB 21 

■JEQ MEXIT 

C STARTA, STOPA DONE? 

JEQ MEXIT YES, EXIT 

INCT STARTA NO, UPDATE ADDRESS 

DEC COUNT 

CI COUNT, 4 

JNE MSKIP2 
MESG ©SPACE2 

MSKIP2 MOV COUNT, COUNT DONE WITH LINE? 

•JEQ ML00P1 YES, TO NEXT LINE 
MESG ©SPACE2 DELIMITER 

JMP ML00P2 
MI CI DECT STARTA LAST ADDR ? 

CI TCHAR, ■-'■*256 OPEN PRE MEMORY LOG 

JEQ MIC 
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riBUG SDSMAC 947075 *B 16:35:23 FRIDAY, JIJN 17, 19//. 

*** MEMORY INSPECT/CHANGE *## PAGE 0015 

0468 02AS 0220 A I R0,4 TWO INCT S 

02AA 0004 
046'? 02AC 

0470 * 

0471 * MEMORY INSPECT /CHANGE ROUTINE". 

0472 * 

0473 02AC 2FA0 MIC MESG ©CRl.F NEXT LINE 
02AE 0238" 

0474 02B0 2E80 WHEX ST ART A PRINT ADDRESS 

0475 02B2 2FA0 MESG ©EQUSGN PRINT "' = "' 
02B4 0256" 

0476 02B6 CI 10 MOV *S7 ART A, VALUE 

0477 02B8 2E84 WHEX VALUE OUTPUT CONTENTS 

0478 02BA 2FA0 MESG ©SPACE2 DELIMITER 
02BC 01FB" 

0479 02BE 2E44 RHEX VALUE ACCEPT NEW INPUT 

0480 02C0 02C4-' DATA MNULL.ERR2 
02C2 0136' 

0481 02C4 C404 MNULL MOV VALUE, *STARTA UPDATE CONTENTS 

0482 02C6 0285 CI TCHAR,>DOO RETURN TO COMMAND SCANNER? 
02C8 ODOO 

0483 02CA 16EA JNE MI CI IF NO, GO ON 

0484 02CC 0459 MEXIT B *9 EXIT 
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TIBUG SDSMAC 947075 *B 16:35:23 FRIDAY, JUN 17, 1977. 

*** HEX INPUT *** PAGE 0016 

0437 ######**#*#*#**########**#***#*####*###*#****##*#*#********* 

0488 * HEX INPUT ROUTINE < XOP R,9) 

0489 • *CALL: RHEX R 

0490 * DATA NULL, ERROR 

0491 * NORMAL RETURN 

0492 * 

0493 * RETURNS A 16-BIT NUMBER INPUT FROM TERMINAL. DIGITS 

0494 * ARE ACCEPTED UNTIL A TERMINATION CHARACTER IS FOUND. 

0495 * 

0496 * TERMINATION CHARACTERS: SPACE, COMMA, CARRIAGE RETURN, MIN 

0497 * 

0493 * THE TERMINATION CHARACTER IS RETURNED IN THE LEFT 

0499 * BYTE OF THE REGISTER FOLLOWING R " . 

0500 * 

0501 * RETURN IS TO THE NULL RETURN ADDRESS IF INPUT IS 

0502 * A TERMINATION CHARACTER ONLY. 

0503 * IF A FAULTY TERMINATION CHARACTER IS FOUND, 

0504 * RETURN IS TO THE ERROR ENTRY. 

0505 ***»***##***#*********************************************** 

0506 OOOD WP EQU 13 

0507 OOOE PC EQU 14 

0508 * 

0509 * 

0510 02CE 04C9 RHENTY CLR R9 RESET NUMBER INPUT FLAG 

0511 02D0 04CC CLR BUFFER CLEAR ACCUMULATOR 

0512 02D2 2ECA LOOP ECHO RIO GET A CHARACTER INPUT 

05 1 3 * 

0514 * CHECK FOR VALID HEX INPUT 

0515 * 

0516 02D6 " ZERO EQU *+2 

0517 02D4 02SA CI RIO, 0' *256 MIN NUMERIC 
02D6 3000 

0518 02D8 1A11 •JL NOTHEX 

0519 02DA 023A CI RIO, '9'*256 MAX NUMERIC 
02DC 3900 

0520 02DE 1208 .JLE GOT ONE 

0521 02E0 028 A CI R10,-A"*256 MIN ALPHA 
02E2 4100 

0522 02E4 1A0B 

0523 02E6 028A 
02E8 4600 

0524 02EA 1B08 

0525 02EC 022A 
02 EE 0900 

0526 02F0 0A4A GOTONE SLA RIO, 4 ISOLATE DIGIT 

0527 02F2 09CA SRL' RIO, 12 WORD ALIGN DIGIT 

0528 * 

0529 * DIGIT TO ACCUMULATOR 

0530 * 

0531 02F4 0A4C SLA BUFFER, 4 

0532 02F6 A30A A RIO, BUFFER 

0533 02F8 0589 INC R9 SET INPUT FLAG 

0534 02FA 10EB JMP LOOP 

0535 * 

0536 * CHECK FOR TERMINATION CHARACTER 

0537 * 

0538 02FC 028A NOTHEX CI RIO," -*256 " "■' 
02FE 2000 

0539 0300 130B -JEQ SPCK 

0540 0304' MINUS EQU *+2 
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•JL 


NOTHEX 




CI 


RIO, "'F"' x-256 


MAX ALPHA 


■JH 


NOTHEX 




AI 


RIO, >900 


ALPHA ADJI 



T I BUG 
*## HEX 



SDSMAO 
INPUT *** 



947075 *B 



16! : 



FRIDAY, JUN 17, 1 >7 7. 



PAGE 0017 



054 1 

0542 
0543 

0544 
0545 

0546 
0547 

054S 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 



-i i.ik' 
304 
306 
303 
30A 
30C 
30E 
3 1 
312 
314 
16 
13 
31A 
31C 
31E 
320 
322 
^24 
26 

ic" 1 y 

32A 
:2C 
!2E 
130 



028A 
2D00 
1 303 
028A 
0D00 
1 305 
023A 
2C00 
1 60D 
020A 
2000 
C249 
1 305 
CECC 
C6CA 
05CE 
05CE 
0380 
05CB 
C6CA 
C39E 
0380 
05CE 
10FC 



SPCK 



NEXIT 
EXIT1 
ERR 



CI 

•JEQ 
CI 

.JEQ 
CI 

.JNE 
LI 

MOV 

■JEQ 

MOV 

MOV 

INCT 

I NC 1" 

RTWP 

INCT 

MOV 

MOV 

RTWP 

INCT 

■JMP 



RIO, 



'#256 



SPCK 
R10,>D00 

SPCK . 

RIO, ' , "*256 

ERR 

RIO,' *256 

R9,R9 
NEXIT 



CARRIAGE RETURN'?' 



COMMA? 

NO, TERMINATION CHAR ERROR 
CHANGE TO SPACE 

NULL INPUT? 
YES, SKIP 



BUFFER, *R11+ RETURN VALUE 



R 1 , *R 1 1 

PC 

PC 

Rll 

R10,*R11 
#PC , PC 

PC 
EXIT1 



RETURN TERMINATOR 
BUMP PAST NULL POJNTER 
BUMP PAST ERROR POINTER 



RETURN TERMINATOR 
GET POINTER 

POINT TO ERROR POINTER 
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T TBI in SMSMAO '"'47075 *B 16:35:23 FRIDAY, JUN 17, 1977. 

*** HEX OUTPUT *«* "" " 

a* a*** *#***«****#***********•«********************* ********** 
* 

* HEX OUTPUT ROUTINES 
<- 

« ROUTINE 1 : XOP R, lu 
-» 

* r:Al L: WHEX R 

* NORMAL RETURN 

* OUTPUT THE BINARY CONTENTS OF R"' AS 

* 4 HEXADECIMAL DIGITS. 

«■ 

« ROUTINE 2: XOp R,S 

s 

« i Al L.: WHX1 R 

« NORMAL RETURN 

a 

* HUT PUT RIO HI MOt.T HEX DIGIT IN R. 

«in8H«»)n«t*immnnnie)t*ini**«**tiH»****<***«***«*H*H« »«*# 

■a 

* WHXI ENTRY POINT 
<t 
UHXEIY MOV *E11 , BUFFER OE I VALUE TO PRINT 

SI. A BUFFER, 1 ."' 

II p'~', 1 SET COUNT FOR 1 DIGIT 

..IMP Lutipl 
a 

•J WHEX ENTRY POINT 
ii 
IB WHENTY MOV «R11, BUFFER 01 "I THE VALUE 
0597 033E 02'-..'9 LI IV-', 4 SEI COUNT FOR 4 DIGITS OUT 

0340 0004 
o'-.qr O-14- r-"PA- I ni ip 1 MOV BUfFER.RlO 

OSwy 0344 09i:a SRL Rlo,l.i ISOLATE HEX DIGIT 

0/-,Ofi o:--:4A OASA SLA R 1 <> , S BYTE ALIGN 

0601 0343 028A CI R10,V r '00 NUMERIC":' 

084A 0900 
iV,D2 n:--:4r: K'O? OLE Ni IM YIS, SKIP 

0603 034E or-.-jA AI RUGV/OO ALPHA ADJUST 
Of-: 50 0/00 

0604 0352 022ft HUM A I RIO, 0* 256 NUMERIC TO ASCII 
(V":S4 3000 

<V-.OM ; -:56 2F0A WRIT RIO WRITE CHARACTER 

0606 0358 OBCC SRC BUFFER, 12 ALIGN NEXT DIGIT 

0607 rr-i^A 0/-.09 DEC R' :; ' DONE 7, 
0603 035C 16E2 ONE L00P1 NO, LOOP 
0609 035E 0330 RTWP 



0563 








0564 








0565 








0566 








0567 








0563 








0569 








0570 








057 1 








0572 








0573 








0574 








0575 








0576 








057 7 








057S 








0579 








0580 








05S1 








0582 








0583 








0534 








0585 








0586 








0537 








0588 








0589 


03 


-' *:' 


031 B 


0590 


03 


34 


OACC 


0591 


03 


36 


0209 




03 


"! :-: 


000 1 


( >592 


03 


3 A 


1 00 z' 


I iNVo 








0594 








0595 








0596 


03 


30 


c :■■ l b 
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TIBUG 

*** SINGLE 

0612 
0613 
0614 
0615 
0616 
0617 
0618 
06 1 9 
0620 
0621 
0622 
0623 



SDSMAC 947075 *B 16:3? 
STEP/EXEXUTE/LOAD *** 



FRIDAY, JUN 17, 1977. 



PAGE 0019 



# 

* SINGLE STEP /EXECUTE ENTRY 
# 

0006 BPDATA EQU 6 

0007 TFLAG EQU 7 
* 

# SINGLE STEP ENTRY 



0624 

0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 

0634 
0635 

0636 
0637 
0638 

0639 
0640 
0641 
0642 
0643 



0360 
0362 
0364 



0360 ' 
0207 
9900 
03E0 



0366 0380 



S EQU * 

LI TFLAG, >9900 SET TRACE FLAG 

LREX INITIATE LOAD INTERRUPT 
« EXECUTE ENTRY POINT 
E RTWP 
* LOAD ENTRY 

CI TFLAG, >9900 SINGLE STEP? 



0368 0237 LOAD 
036A 9900 
036C 1316 
036E 0201 
0370 FFFA 

0372 C091 
0374 1302 
0376 0460 

0373 07E0-- 

037A 0641 L0AD1 DECT Rl 
037C C091 MOV *R1,R2 

037E 1316 JEQ BRAMGN 

0380 04D1 CLR *R1 

0382 0460 B 6STEPRT 

0384 07AA-' 



•JEQ WPSOUT 

LI R1,HALTFG 

MOV *R1,R2 

JEQ L0AD1 

B ©HALT 



YES, TO WPS OUTPUT 

REG 1 = ADDR OF HALT FLAG 

IS HALT FLAG ON ? 
IF NO, GO ON 
GO TO HALT 

REG 1 = ADDR OF STEP FLAG 
IS STEP FLAG SET ? 
IF NO, GO TO TOP OF MONITOR 
CLEAR STEP FLAG 
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TIBUG SDSMAC 947075 *B 16:35:23 FRIDAY, JUN 17, 1977. 

*** BREAKPOINT HANDLER #** PAGE 002 ° 

0646 #***♦**********#***#*****#********************************** 

0647 * 

0648 * BREAKPOINT HANDLER 

0649 * 

0/-.50 * SAVE THE CONTENTS OF THE ADDRESS INDICATED. INSTALL AN 

0651 * XOP 15 O2FC0) IN THE LOCATION AND PASS CONTROL TO 

0652 * USER PROCEEDURE. 

0653 * 

0654 * WHEN XOP 15 IS EXECUTED, PRINT • BP ' FOLLOWED BY CONTENTS 

0655 * OF USER WP, PC, AND ST AT THE BREAKPOINT. CONTROL IS THEN 

0656 * PASSED TO THE MONITOR COMMAND SCANNER. 

0657 * 

0658 *******#****************#*********************************** 

0659 * 

0660 * 

0661 * GET BREAKPOINT ADDRESS 

0662 * 

0663 0386 4008 B SZC WDBDY, START WORD ALIGN ADDRESS 

0664 * 

0665 * SAVE DATA AND INSTALL XOP 15 

0666 * 

0667 0388 CI 90 MOV *START, BPDATA 

0668 038A C420 MOV ©BPXOP, *START 
038C 0390 -' 

0669 038E 0380 RTWP 

0670 0390 2FC0 BPXOP DATA >2FC0 

0671 * 

0672 * XOP 15 ENTRY POINT 

0673 * 

0674 0392 064E XOPENT DECT PC UPDATE USER PC 

0675 0394 C406 MOV BPDATA, *START RESTORE LOCATION 

0676 * 

0677 * OUTPUT -BP' FOLLOWED BR USER WP, PC, AND ST AT BREAKPOINT 

0678 * 

0679 0396 2FA0 MESG ©BPMSG NEW LINE AND 'BP' 
0398 01FE' 

0680 039A 04C7 WPSOUT CLR TFLAG RESET FLAG 
0631 039C 020A LI RIO, -6 SET LOOP COUNT 

039E FFFA 

0682 03A0 2FA0 XL00P1 MESG ©SPACE4 PRINT 4 SPACES 
03A2 01F9' 

0683 03A4 2EAA WHEX ©MREGS+32 ( RIO) PRINT STATUS 
03A6 FFDO 

0684 03A8 05CA INCT RIO 

0685 03AA 16FA JNE XL00P1 

0686 03AC 0460 BRAMON B 6M0NT0P TO COMMAND SCANNER 
03AE 0080 
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TIBUG SDSMAC 947075 *B 16:35:23 FRIDAY, . II IN 17, 1^77. 

*** CRU/ INSPECT CHANGE *#* PAGE 0021 

0689 #*«■*#*#*#*#*#*****####*####■«•##########*####*« ##*#** 

0690 * 

'-'691 * CRU INSPECT/CHANGE — 'C' COMMAND 

0692 * 

0/ -' 9 '- ! * INPUT THE CRU BASE ADDRESS FOLLOWED BY THE BIT 

06y 4 * COUNT. ALL INPUT AND OUTPUT TO THE CRU IS RIGHT 

0695 * JUSTIFIED IN THE 16 BIT INPUT /OUTPUT DATA FIELDS. 

0696 # 

0697 * INPUT OF A CARR. RET. AS A TERMINATION CHARACTER 

0698 * RETURNS CONTROL TO THE COMMAND SCANNER. A "' "' AS 

0699 * TERMINATION CHARACTER CAUSES THE f:Rl I INPUT BITS 

0700 * TO BE OUTPUT AGAIN AS WELL AS THE CRU OMTPlir BITS 

0701 * TO BE CHANGED. 

0702 * 

0703 a************************************************.**. 

0704 * 

0705 0001 BITCNT EQU 1 

0706 0006 IOBUF EQU 6 

0707 0007 WORDFG EQU 7 

0708 0008 XEC EQU 8 

0709 * 

0710 * 

0711 03B0 C300 C MOV START, CRUBAS UPDATE CRU BASE REGISTER 

0712 03B2 04C7 CLR WORDFG RESET WORD FLAG 

0713 03B4 0241 AND I BITCNT, >F ISOLATE BIT COUNT 
03B6 OOOF 

0714 03B8 1303 JEQ SETFG YES, SET FLAG 

0715 03BA 0281 CI BITCNT, >9 BYTE .JUSTIFIED I/O? 
03BC 0009 

0716 03BE 1A01 ,JL CSKIP1 YES, SKIP 

0717 03C0 0587 SETFG INC WORDFG WORD JUSTIFIED I/O FL Afi 

0718 * 

0719 * FORM 'STCR-' COMMAND AND READ f:RI I 

0720 * 

0721 03C2 0A61 CSKIP1 SLA BITCNT, 6 JUSTIFY BIT mi INT 

0722 03C4 0208 CLOOP LI XEO3406 
03C6 3406 

0723 03C8 E201 SOC BITCNT, XEC 

0724 03CA 0488 X XEC EXECUTE "STCR" 

0725 * 

0726 * OUTPUT STATE OF CRU 

0727 * 

0728 03CC 2FA0 MESG 6CRLF NEXT LINE 
03CE 0238" 

0729 03D0 2E8C WHEX CRUBAS PRINT BASE ADDRESS 

0730 03D2 2FA0 MESG ©EQUSGN PRINT ■' = •' 
03D4 0256'- 

0731 03D6 C1C7 MOV WORDFG, WORDFG WORD I /IT? 

0732 03D8 1601 ,JNE CSKIP2 YES, SKIP 

0733 03DA 0936 SRL IOBUF, 8 ALIGN BYTE I/O TH WfiRD 

0734 03DC 2E86 CSKIP2 WHEX IOBUF OUTPUT CRU STATE 

0735 03DE 2FA0 MESG ©SPACE2 PRINT ' 
03E0 01FB- 

0736 * 

0737 * ACCEPT INPUT FOR ALTERATION OF CRU 
0733 * 

0739 03E2 2E44 RHEX VALUE CRU OUTPUT? 

0740 03E4 03F6- DATA CNULL3,ERR2 
03E6 0136'' 

0741 OSES CI 84 MOV VALUE, IOBUF 
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TIBUG SDSMAC 947075 *B 16:35:23 FRIDAY, JUN 17, 1977. 

*** CRU/ INSPECT CHANGE *** PAGE 00i 

0742 03EA C1C7 MOV WORDFG, WORDFG WORD I/O? 

0743 03EC 1601 JNE CSKIP3 YES, SKIP 

0744 03EE 0AS6 SLA I0BUF.8 BYTE ALIGN FOR OUTPUT 

0745 03F0 0248 CSKIP3 AND I XEOF3FF STCR-' TO l.DCR' 
03F2 F3FF 

0746 03F4 0488 X XEC EXECUTE 'l.DCR ' 

0747 03F6 0285 CNULL3 CI CHAR,>D00 EXIT? 
03F8 ODOO 

0748 03FA 16E4 JNE CLOOP NO LOOP 

0749 03FC 0459 B *9 YES, TO MONITOR 
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TIBUG SDSMAC 947075 #B 16:3' 

*** WORKSPACE REGISTER INSPECT/CHANGE 



FRIDAY, ...HJN 17, 1977. 



PAL 



0752 
0753 
0754 
0755 
0756 
0757 
0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
077 1 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 

0783 
0784 
0785 
0786 
0787 
0788 
0789 

0790 
0791 

0792 
0793 

0794 
0795 

0796 
0797 

0798 
0799 
0800 

080 1 
0802 
0803 
0804 



0006 
0007 



03FE 
03FE CI CD 
0400 C0C3 
0402 1323 
0404 0240 
0406 00 OF 



0408 
040A 
040C 
040E 
04 1 
0412 
04 1 4 
0416 
04 1 8 
041 A 
04 1C 
04 IE 
0420 
0422 
0424 
0426 
0428 
04 2 A 
042C 
042E 
0430 
0432 



C 1 80 

0A10 

A ICO 

2FA0 

0242- 

2E06 

2FA0 

0256' 

2E97 

2FA0 

01FB 

2E44 

0426" 

1 36 ■' 

C5C4 

0285 

ODOO 

1601 

0459 

0285 

2000 

1305 



DISPLAY THE CONTENTS OF ALL CURRENT USER 
WORKSPACE REGISTERS AND RETURN TO THE 
COMMAND SCANNER . 

2) W", REGISTER NUMBER IN HEX, CARRIAGE 
RETURN --- DISPLAY THE CONTENTS OF THE 
DESIGNATED REGISTER. USER MAY ALTER 
THE CONTENTS FOLLOWED BY A TERMINATION 
CHARACTER OR MERELY ENTER A TERMINATION 
CHARACTER. THE TERMINATION CHARACTER 
SIGNIFIES WHAT IS TO BE DONE NEXT: 



#*■***#*#■&# -turn #»##**#*###** *•»•»#•« mm <*#«*#*#***-** 
# 

* INSPECT /CHANGE USER WORKSPACE REGISTER W COMMAND 

# OPTIONS: 1) W FOLLOWED BY CARRIAGE RETURN 

* 
a 

■H- 
# 

REGNUM EQU 6 
RPOINT EQU 7 

# 

W EQU * 

MOV WP, RPOINT UET WORKSPACE POINTER 

MOV COUNT, COUNT NULL INPUT? 

JEQ WNULL1 YES, TO FORMATTED DUMP 

AND I START, >F TO >F 



* INSPECT /CHANGE A WORKING REGISTER 



SPACE — 
MINUS --- 



DISPLAY THE CONTENTS OF THE NEXT REGISTER. 
DISPLAY THE CONTENTS OF THE PREVIOUS REGISTER 



CARRIAGE RETURN 



TO THE COMMAND SCANNER. 



MOV 
SLA 
A 



START, REGNUM SAVE REGISTER NUMBER 

START, 1 

START, RPOINT FORM REGISTER ADDRESS 



ICLOOP MESG ©CRLFR 

WHX1 REGNUM 
MESG ©EQUSGN 

WHEX *RPOINT 
MESG SSPACE2 

RHEX VALUE 

DATA WNULL2,ERR2 



NEXT LINE 

OUTPUT REGISTER NUMBER 
PRINT " = " 

PRINT REGISTER CON TENTS 
DELIMITER 

NEW CONTENTS? 



MOV VALUE, *RP01NT UPDATE REGISTER 
WNULL2 CI TCHAR,>D00 RETURN TO COMMAND SCANNER" 



ONE SKIP 

WEXIT1 B #9 

SKIP CI TCHAR, 

.JEQ NREG 



NO, CHECK FOR 
TO SCANNER 
*256 NEXT REGISTER! 



ye; 



# CHECK FOR REGISTER 



325 
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0S05 
0306 
0807 
0803 
0809 
0810 
0811 
0812 
0813 

0314 
0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 

0324 
0825 

0326 
0827 
0828 
0329 

0830 
0331 

0832 
0333 

0834 

OS35 



0434 CI 86 
0436 13FA 
0438 0606 
043A 0647 
043C 10E8 



043E 0286 
0440 OOOF 

0442 13F4 
0444 0536 
0446 05C7 

0443 10E2 



044A 
044C 
044E 
0450 
0452 
0454 
0456 
0458 
045A 
045C 
045E 
0460 
0462 
0464 
0466 
0468 
046A 
046C 
046E 
0470 
0472 



04C6 

CI CD 

2FA0 

0242' 

2E06 

2FA0 

0256' 

2E97 

0586 

05C7 

0236 

0008 

13F5 

0236 

0010 

13E1 

2FA0 

01FB 

2FA0 

0244 ' 

10EF 



MOV 
■JEQ 
DEC 

DECT 
..IMP 

* CHECK FOR 
# 

NREG CI 

JEQ 
INC 
INCT 
■JMP 
* 

* FORMATTED 
# 

WNULL1 CLR 
MOV 
NL1NE MESG 

WLOOP WHX1 
MESG 

WHEX 
INC 
INCT 
CI 

•JEQ 
CI 

JEQ 
MESG 

MESG 

•JMP 



REGNUM, REGNUM AT REGISTER 0? 



WEXIT1 
REGNUM 
RPOINT 
ICLOOP 

REGISTER >F 

REGNUM , >F 

WEXIT1 
REGNUM 
RPOINT 
ICLOOP 



YES, TO SCANNER 
UPDATE REGISTER NUMBER 
UPDATE ADDRESS 



REGISTER >F, TO SCANNER 
UPDATE REGISTER NUMBER 
UPDATE ADDRESS 



REGISTER DISPLAY 



REGNUM 
WP, RPOINT 
©CRLFR 

REGNUM 
©EQIJSGN 

*RP01NT 
REGNUM 
RPOINT 
REGNUM, >S 

NLINE 
REGNUM, >10 

WEXIT1 
©SPACE2 

@RP 

WLOOP 



NEXT LINE 

REGISTER NUMBER 
PRINT •' = -' 

PRINT CONTENTS 
TO NEXT REGISTER 
NEXT ADDRESS 
END OF LINE? 



DONE? 

YES, TO SCANNER 
DELIMITER 

PRINT •R-' 
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0833 
0339 
0340 
0S41 
0842 
0843 
0844 
0845 
0846 
0847 
0343 
0849 
0850 
085 1 
0852 
0853 



# 

* DISPLAY WP, PC, ST REGISTERS 
* 

* TERMINATION CHARACTERS: 

* SPACE — TO NEXT REGISTER 

* CARRIAGE RETURN — TO MONITOR SCANNER 

* MINUS — INSPECT SAME REGISTER AGAIN 
* 

* ORDER OF DISPLAY: WP, PC, ST. 
# 

0006 MPOINT EQU 6 

0007 LCOUNT EQU 7 

* 

LI MPOINT, WS 



0854 0474 0206 R 
0476 023C' 

0855 0478 0207 LI 
04 7 A 0003 

0856 047C 0203 LI 
047E FFCA 

0857 0480 2FA0 RL00P1 MESG ©CRLF 
0482 0238 " 



INIT. MESSAGE POINTER 
LCOUNT, 3 SET LOOP COUNT 
R8,MREGS+WP+WP 

NEXT LINE 



MESG *MPOINT 
MESG ©EQUSGN 



OUTPUT REGISTER SLOGAN 
PR I NT r = -' 



MOV *R8, VALUE 
WHEX *R8 
MESG ©SPACE2 

RHEX VALUE 
DATA RNULL,ERRi 



PRINT CONTENTS 
DELIMITER 

NEW DATA? 



0858 0484 2F96 

0859 0486 2FA0 
0488 0256' 

0860 048A CI IS 

0861 048C 2E98 

0362 04SE 2FA0 
0490 01FB" 

0863 0492 2E44 

0864 0494 0498' 
0496 0136" ' 

0865 0493 C604 RNULL MOV VALUE, *R8 

0866 049A 0285 CI TCHAR, ■'-' *256 SAME REGISTER 
049C 2D00 

0367 049E 13F0 JEQ RL00P1 

0363 04A0 0285 CI TCHAR, >D00 
04A2 ODOO 

0369 04A4 1304 JEQ REX IT 

0870 04 A6 05C6 INCT MPOINT 

0871 04A8 05C8 INCT R8 
0372 04AA 0607 DEC LCOUNT 

0873 04AC 16E9 JNE RL00P1 

0874 04AE 0459 REX IT B *9 



YES, LOOP 
TO SCANNER? 

YES, EXIT 

UPDATE MESSAGE POINTER 

UPDATE ADDRESS 

EXIT ? 

IF >0, NO 

TO SCANNER 
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0877 
0S7S 
0879 
0880 
0881 
0882 
0S83 
0884 
0885 
0836 
0887 
0888 
0889 
0890 
0391 
0892 
0393 

0894 04B0 4008 

0895 04B2 4048 

0896 04B4 4083 
0897 

0893 
0899 

0900 04B6 8040 

090 1 04B3 1 202 

0902 04BA 0460 
04BC 013C 

0903 
0904 
0905 



ft*********************************************************** 
* 

* DUMP ROUTINE — 'D' COMMAND 
* 

* DUMP RAM IMAGE TO CASSETTE TAPE 

* IN 990 TAG OBJECT FORMAT 
* 

0002 ENTRY EQU 2 

0004 TCOUNT EQU 4 

0005 CKSUM EQU 5 

0006 IDT EQU 6 
OOOC TVALUE EQU 12 
04B0 D EQU * 

# 

» WORD ALIGN ADDRESSES 
* 



SZC 

;zc 
>zc 



WDBDY,S7ARTA 
WDBDY,STOPA 
WDBDY, ENTRY 



* START ADDRESS 7 STOP ADDRESS— ERROR 
# 

C STARTA,STOPA 

..ILE ADDROK 

B GERR3 ERROR EXIT TO MONITOR 



* READ IDT. BLANK FILL REMAINDER OF BUFFER 
* 

0906 04BE 04C4 ADDROK CLR R4 

0907 04C0 04C3 CLR COUNT 

0908 04C2 2FA0 MESG ©IDTEQ 
04C4 0203' 

0909 04C6 2EC4 RDIDT ECHO R4 READ CHARACTER 

0910 04C8 D8C4 / BLANKO MOVB R4, @MREGS+12< COUNT > 
04CA FFBC 

0911 04CC 0533 

0912 04CE 0283 
04D0 0008 

0913 04D2 1304 

0914 04D4 0284 
04D6 2000 

0915 04D8 16F6 

0916 04DA 10F6 
0917 
09 1 8 
0919 



INC COUNT 

CI COUNT, 8 

JEQ UREADY 

CI R4,>2000 

.JNE RDIDT 

..IMP BLANKO 



BUFFER FULL? 

YES, EXIT 
TERMINATOR ? 



* WAIT FOR USER READY 
# 

0920 04DC 2FA0 UREADY MESG ©READY 
04DE 0208' 

READ R4 

CI R4, •Y'*236 



0921 04E0 2F44 

0922 04E2 0234 
04E4 5900 

0923 04E6 1641 

0924 04E8 04E0 
04EA FFF6 

0925 
0926 
0927 
0928 04EC 2FA0 



JNE DEXIT 
CLR ©DUMPFG 



* ZERO TAG (IDT TAG) 
# 

MESG @DC2 



OUTPUT READY MESSAGE 

WAIT FOR INPUT 

YES? , IF NOT TO MONITOR 



SET DUMP FLAG 



OUTPUT DC2, START CASSSETTE 
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04EE 


0223-' 










0929 


04F0 


04CA 






CLR RIO 




0930 


04F2 


04C5 






CLR CKSUM 




0931 


04F4 
04F6 


06A0 
056C ■" 






BL eOUTTAG 




0932 


04F8 


3000 






DATA >3000 




0933 


04FA 
04FC 


2FA0 
FFBC 






MESG ©MREGS+12 


OUTPUT IDT 


0934 






# 








0935 






* 


UPDATE CHECKSUM 




0936 






■* 








0937 


04FE 
0500 


0203 
0003 






LI COUNT, 8 




0938 


0502 


D123 


LLOOn 


MOVB eMREGS+11 ( COUNT ) , R4 GET CHARACTER 




0504 


FFBB 










0939 


0506 


0984 






SRL R4 , 8 




0940 


0508 


A144 






A R4, CKSUM 


ADD IT TO CHECKSUM 


0941 


050A 


0603 






DEC COUNT 


DONE? 


0942 


05 OC 


16FA 






.JNE LL00P1 


NO, ADD NEXT CHARACTER 


0943 






* 








0944 






* 


ENTRY ADDRESS TAG 




0945 






# 








0946 


050E 


C282 






MOV ENTRY, RIO 


ENTRY ADDRESS TO BUFFER 


0947 


0510 
0512 


06A0 
056C 






BL eOUTTAG 




0948 


0514 


3100 






DATA >3100 




0949 






# 








0950 






# 


ENTRY ADDRESS TAG (9) 




0951 






•» 








0952 


0516 


C280 


NINE 


MOV STARTA,R10 




0953 


0518 
051 A 


06A0 
056C ' 






BL ©OUTTAG 


MEMORY ADDRESS 


0954 


05 1 C 


3900 






DATA >3900 




0955 






* 








0956 






# 


MEMORY CONTENTS TAG <B> 


0957 






* 








0958 


05 IE 


C290 


BTAG 


MOV *STARTA,R10 




0959 


052O 
0522 


06A0 
056C 






BL @OUTTAG 


MEMORY DATA 


0960 


0524 


4200 






DATA >4200 




0961 






■M- 








0962 






# 


DUMP 


COMPLETED? 




0963 






-ft- 








0964 


0526 


8040 






C STARTA,STOPA 


AT LAST ADDRESS? 


0965 


0528 


1304 






•JEQ EOR 


YES, TERMINATE 


0966 


052A 


05C0 






ITMCT STARTA 


NO, UPDATE ADDRESS 


0967 


052C 
052E 


0283 
003C 






CI COUNT, 60 


END OF RECORD? 


0968 


0530 


1AF6 






•JL BTAG 


NO, OUTPUT NEXT WORD 


0969 






* 








0970 






# 


OUTPUT END OF RECORD 




0971 






* 








0972 


0532 


0225 


EOR 


A I CKSUM, >37 


UPDATE CHECKSUM 




0534 


0037 










0973 


0536 


C285 






MOV CKSUM , R 1 




0974 


0538 


050A 






NEG RIO 


INVERT CHECKSUM 


0975 


053A 
053C 


06A0 
056C ' 






BL eOUTTAG 


OUTPUT 7 TAG 


0976 


053E 


3700 






DATA >3700 




0977 


0540 


04C5 






CLR CKSUM 


ZERO CHECKSUM 
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0973 


0542 


2FA0 




0544 


02 15-' 


0979 






0930 


0546 


8040 


098 1 


0548 


1 304 


0982 


054A 


04C3 


0983 


054C 


2FA0 




054E 


0224' 


0984 


0550 


10E2 


0985 






0986 






0987 






0988 


0552 


2FA0 




0554 


0218' 


0989 


0556 


0203 




0553 


003C 


0990 


055A 


2FA0 




055C 


0221' 


0991 


055E 


0603 


0992 


0560 


16FC 


0993 


0562 


0720 




0564 


FFF6 


0994 


0566 


2FA0 




0563 


0238' 


0995 


05 6 A 


1044 


0996 






0997 






0998 






0999 






1000 






1001 






1002 






1 003 


056C 


C13B 


1004 


056E 


2F04 


1 005 


0570 


0984 


1006 


0572 


A144 


1 007 


0574 


2E8A 


1008 


0576 


0223 




0578 


0005 


1 009 






1010 






1011 






1012 






1013 


057A 


0204 




057C 


0004 


1014 


057E 


0B4A 


1015 


0530 


C30A 


1016 


0532 


09CC 


1017 


0584 


A14C 


1018 


0536 


0225 




0588 


0030 


1019 


058A 


028C 




05SC 


OOOA 


1020 


053E 


1A02 


1 02 1 


0590 


0225 




0592 


0007 


1022 


0594 


0604 


1 023 


0596 


16F3 


1024 


0593 


045B 



MESG @FCR OUTPUT F TAG AND 

CARRIAGE RETURN 
C STARTA,STOPA DONE WITH DUMP 



JEQ DDUMP 
CLR COUNT 
MESG @NR 

JMP NINE 
* 
* END DUMP ROUTINE 

DDUMP MESG ©EOF 

LI COUNT. 60 

RL00P2 MESG ©RUBOUT 

DEC COUNT 
JNE RL00P2 
SETO ©DUMPFG 

MESG eCRLF 



YES, EXIT 

NO,~OUTPUT NEXT 

PRINT LEADING LF AND DEL 

RECORD 



OUTPUT FINAL RECORD 



RSET DUMP FLAG 

GET OVER TO LEFT HAND SIDE 

TO MONITOR 



DEXIT JMP LOUT 

* OUTPUT TAG ROUTINE 
# 

* TAG CHARACTER IN THE LEFT BYTE OF THE 

* WORD AFTER THE CALL. THE FIELD VALUE IS 

* IN 'VALUE' 



OUTTAG MOV *11+,R4 
WRIT R4 
SRL R4,S 
A R4,CKSUM 
WHEX RIO 
A I COUNT, 5 



GET TAG 
OUTPUT IT 

UPDATE CHECKSUM 

OUTPUT FIELD 

UPDATE CHARACTER COUNT 



* UPDATE THE CHECKSUM WITH THE 'HEX /ASCI I 

* EQUIVALENT OF THE CONTENTS OF 'VALUE' 

LI TC0UNT,4 SET LOOP COUNT 



UL00P1 SRC .RIO, 4 

MOV RIO, T VALUE 
SRL TVALUE , 1 2 



ISOLATE A DIGIT 



A 
AI 

CI 

,.IL 

AI 



TVALUE, CKSUM ADD ASCII VALUE 
CKSUM, >30 TO CHECKSUM 

TVALUE, 10 

USKIP 
CKSUM, 7 



USKIP DEC TCOUNT 
•JNE ULOOP 1 
B *11 



ANOTHER DIGIT? 
YES,. JUMP BACK 
NO, RETURN 
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1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 

1043 059A 
059C 
1049 059E 
1050 
1051 
1052 

1053 05A0 

1054 05A2 

1055 05A4 
05A6 

1056 05A8 

1057 05AA 
05AC 

1058 05AE 

1059 05BO 
05B2 

1060 05B4 

1061 05B6 
05 B8 

1062 05BA 

1063 05BC 
05BE 

1064 
1065 
1066 

1067 05C0 
05C2 

1068 05C4 

1069 05C6 
05C8 

1070 05CA 

1071 05CC 



0000 
0001 
0008 
0009 
059A-' 



0206 
1100 
2F06 



04C7 

04C8 

06A0 

066E-' 

100B 

D22A 

0654' 

132D 

06A0 

0668' 

100E 

0205 

0008 

0378 

0468 

05BC ' 



1071 



05.CE 
05D0 



1073 05D2 
05D4 

1074 05D6 

1075 05D8 
1076 



0286 
0047 
1106 
0286 
004A 
1516 
0226 
FFC9 
10EC 
0286 
003A 
1610 
04CA 



* 

* 990 TAG FORMAT JLOADER — 'L' COMMAND 
* 

* ACCEPTS LOAD BIAS FROM USER. IF INPUT IS NULL, 

* A BIAS OF >B0 IS THE DEFAULT. 
* 

* UPON A GOOD LOAD, THE 'IDT 'IS OUTPUT. 

* IF AN ERROR IS DETECTED, AN ERROR MESSAGE IS 

* OUTPUT. IN EITHER CASE, CONTROL RETURNS TO THE 

* MONITOR. 
# 

BIAS EQU 

IDTR EQU 1 

JMPTAG EQU 8 

LOADDR EQU 9 

L EQU * 
* 

* PLAYBACK ON 
* 

LI R6,>1100 



WRIT R6 

* 

* GET A TAG 

CLRSUM CLR R7 
TAG CLR JMPTAG 
BL 6GET1 

JMP CHK1 



OUTPUT DC1 



GET TAG 



ERROR EXIT 



TAG2 MOVB @0P < RIO ), .JMPTAG GET TAG OFFSET 



•JEQ ENDACT 

BL @GET4 

•JMP CHK2 

LI R5,8 



F TAG ENCOUNTERED 
GET DATA VALUE 



SET FOR SKIP 8 



•JMP 



SRA JMPTAG, 7 RIGHT JUSTIFY OFFSET 
B €JMP( JMPTAG) GO TO TAG ROUTINE 



* CHECK FOR G,H,I,J TAGS 

CHK1 CI R6, 'G' 

JLT CHK2 
CI R6, "J •' 



CHK2 



JGT ERRORO 

A I R6,->37 

JMP TAG2 

CI R6,>3A 



JNE ERRORO 
GOODLD CLR RIO 

# 



ADJUST VALUE 

COLON ?, NO MORE DATA 
RESET MASK FOR GOOD LOAD 
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1077 






1078 






1079 


05DA 


0705 


1080 


05DC 


020C 




05DE 


0080 


1081 


05E0 


1F0F 


1082 


05E2 


16FB 


1083 


05E4 


0605 


1084 


05E6 


16FC 


1085 


OSES 


C28A 


1086 


05EA 


1609 


1087 


05EC 


2FA0 




05EE 


0238' 


1088 


05F0 


2FA0 




05F2 


FFB2 


1089 


05F4 


0460 




05F6 


0080' 


1090 


05F8 


04C0 


1091 


05FA 


070A 


1092 


05FC 


10EE 


1093 


05FE 


COOO 


1094 


0600 


1302 


1095 


0602 


0460 




0604 


0130" 


1096 


0606 


0460 




0608 


012C 


1097 






1098 






1099 






1100 


060A 


2F46 


1101 


060C 


0986 


1102 


060E 


0286 




0610 


OOOD 


1103 


0612 


16FB 


1104 


0614 


10C5 


1105 






1106 






1107 






1108 


0616 


A280 


1109 


0618 


C24A 


1110 


061A 


10C3 


1111 






1112 






1113 




, 


1114 


061C 


A280 


1115 


06 IE 


CE4A 


1116 


0620 


logo 


1117 






1118 






1119 






1120 


0622 


A1CA 


1121 


0624 


13BE 


1122 


0626 


0200 




0628 


0001 


1123 


062A 


10E7 


1124 






1125 






1126 






1127 


062C 


020A 




062E 


FFB2 



* CHARACTER TIME-OUT - WAIT FOR END OF INPUT 

* 

HANOI SETO R5 

LI CRUBAS,>80 



HANG2 TB 15 

.JNE HANOI 

DEC R5 

.JNE HANG2 

MOV RIO, RIO 

JNE LDERR 

MESG SCRLF 



SET CRU BASE REG. FOR 9902 

SPACE? 

YES, RESET COUNT AND CONTINUE 

NO, DECREMENT COUNT 

CHECK AGAIN 

GOOD LOAD? 

NO, OUTPUT ERROR MESSAGE 

NEXT LINE 



MESG ©MREGS+IDTR+IDTR OUTPUT IDT 



LOUT B 



©MONTOP 



ERRORO CLR O 
ERROR 1 SETO RIO 

JMP HANOI 
LDERR MOV 0,0 
JEQ ERO 
B SERR1 



EXIT 

TAG ERROR 
ERROR FLAG 



ERO 



B 



©ERRO 



* F-TAG : SKIP TO END OF RECORD 

ENDACT READ R6 

SRL R6,8 
CI R6,>0D 

JNE ENDACT 
JMP CLRSUM 
•a********************************************************** 

* LOAD ADDRESS TAGS 9 AND A 

RELOAD A BIAS, RIO ADJUST FOR RELOCATABILITY 
ABLOAD MOV R10,L0ADDR SAVE LOAD ADDRESS 
JMP TAG 

ft********************************************************** 

* DATA TAGS B AND C 

REDATA A BIAS, RIO ADJUST RELOCATABLE DATA 
ABDATA MOV R10,*L0ADDR+ 
JMP TAG 

* CHECKSUM TAG 7 
******#*##*###*****»♦#***»#********************************* 

CHECK A R10,R7 
JEQ TAG 
LI O, 1 CHECKSUM ERROR 

JMP ERROR 1 
♦■a********************************************************** 

* IDT TAG 

*»»##*#*#»*»#***♦********#*##*#****♦***#**#***************** 
LENG LI R10.MREGS+IDTR+IDTR ADDRESS OF IDT BUFFER 
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1128 


0630 


1003 


1129 






1130 






1131 






1132 


0632 


0645 


1133 


0634 


020A 




0636 


FFD2 


1134 


0638 


2F46 


1135 


063A 


DE86 


1136 


063C 


0986 


1137 


063E 


A1C6 


1138 


0640 


0605 


1139 


0642 


16FA 


1140 


0644 


10AE 


1141 






1142 






1143 






1144 


0646 


A230 


1145 


0648 


C38A 


1146 


064A 


10AB 


1147 






1148 






1149 






1150 


064C 


024A 




064E 


FFFE 


1151 


0650 


COOA 


1152 


0652 


10A7 


1153 






1154 






1155 






1156 


0654 


38 


1157 


0655 


46 


1158 


0656 


45 


1159 


0657 


3B 


1160 


0658 


3B 


1161 


0659 


3B 


1162 


065A 


3B 


1163 


065B 


33 


1164 


065C 


F2 


1165 


065D 


2E 


1166 


065E 


2D 


1167 


065F 


31 


1163 


0660 


30 


1169 


0661 


48 


1170 


0662 


IE 


1171 


0663 


00 


1172 


0664 


3B 


1173 


0665 


3B 


1174 


0666 


3C 


1175 


0667 


F3 



JMP SKIPS 

* CHECKSUM FIELD 2 OF TAGS 0,3,4,5,6 

SKIP6 DECT R5 ADJUST COUNT TO 6 

OLD IDT LI R10,DUMYBF SET POINTER 



CHARACTER TO BUFFER 
UPDATE CHECKSUM 



SKIP8 READ R6 

MOVB R6,*R10+ 

SRL R6,8 

A R6,R7 

DEC R5 

JNE SKIPS 

JMP TAG 
♦♦♦a******************************************************** 

* TAGS 1 AND 2 

RLENT A BIAS, RIO 

ABENT MOV RIO, 14 ENTRY POINT TO PC 

JMP TAG 
a*********************************************************** 

* SET LOAD BIAS - TAG D 

SB I AS AND I RIOFFFE WORD ALIGN 

MOV RIO, BIAS 
JMP TAG 
*#*********#****#****##****###*********#**#*****♦****##**#** 

* LOAD JUMP TABLE 

OP 



BYTE 


LENG-JMP/2 





PROGRAM START 


BYTE 


ABENT-JMP/2 


1 


ABS ENTRY ADDRESS 


BYTE 


RLENT-JMP/2 


2 


REL ENTRY ADDRESS 


BYTE 


SKIP6-JMP/2 


3 


EXT REFERENCE 


BYTE 


SKIP6-JMP/2 


4 


EXT REFERENCE 


BYTE 


SKIP6-JMP/2 


5 


EXT DEFINE 


BYTE 


SKIP6-JMP/2 


6 


EXT DEFINE 


BYTE 


CHECK- JMP/ 2 


7 


CHECKSUM 


BYTE 


CLRSUM-JMP/2 


3 


IGNORE CHECKSUM 


BYTE 


ABLOAD-JMP/2 


9 


ABS LOAD ADDRESS 


BYTE 


RELOAD-JMP/2 


A 


REL LOAD ADDRESS 


BYTE 


ABDATA-JMP/2 


B 


ABS DATA 


BYTE 


REDATA-JMP/2 


C 


REL DATA 


BYTE 


SBIAS-JMP/2 


D 


LOAD BIAS 


BYTE 


ERR0R0-JMP/2 


E 


ILLEGAL 


BYTE 





F 


END OF RECORD 


BYTE 


SKIP6-JMP/2 


G 


REL SYMBOL 


BYTE 


SKIP6-JMP/2 


H 


ABS SYMBOL 


BYTE 


OLDIDT-JMP/2 


I 


OLD IDT 



BYTE TAG-JMP/2 



'yyy 
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1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 

1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 

1203 
1204 

1205 
1206 
1207 
1208 
1209 
1210 

1211 
1212 
1213 
1214 
1215 
1216 

1217 
1218 

1219 
1220 

1221 
1222 

1223 
1224 

1225 

1226 



0668 
066A 
066C 



066E 
0670 
0672 
0674 
0676 
0678 
067A 
067C 
067E 
0680 



0682 
0684 
0686 
0688 



0205 
FFFC 
1001 



0705 
04CA 
2F46 
0286 
2000 
HFC 
0286 
5F00 
15F9 
0986 



0288 
3300 
1301 
A1C6 



068A 
068C 
068E 
0690 
0692 
0694 
0696 
0698 
069A 
069C 
069E 
06A0 
06A2 
06A4 
06A6 
06A8 



0286 
0030 
1112 
0286 
0039 
1208 
0286 
0041 
HOC 
0286 
0046 
1509 
0226 
0009 
0246 
OOOF 



# 

* GET 4 HEX DIGITS AND CONVERT THEM TO BINARY. 

* THE VALUE IS ASSEMBLED IN 'VALUE''. NON-HEX 

* INPUT RESULTS IN AN ERROR RETURN WITH THE 

* CHARACTER IN THE RIGHT BYTE OF 'CHAR". GET1 

* IS THE ALTERNATE ENTRY POINT FOR GETTING 1 

* HEX CHARACTER. 
* 

* CALL=BL @GET41 

* JMP ERROR ERROR RETURN 

* NORMAL RETURN 
* 

* 

* 4 HEX DIGIT ENTRY POINT 

GET4 LI R5.-4 SET COUNT FOR 4 DIGITS 

JMP GET 
* 

* GET TAG CHARACTER ENTRY POINT 
* 

GET1 SETO R5 SET COUNT FOR 1 CHARACTER 

GET CLR RIO CHECK FOR VALID ASCII INPUT 

GET41 READ R6 

CI R6,' '*256 MIN ASCII 



MAX ASCII 



JLT GET41 

CI R6,>5F00 

JGT GET41 

SRL R6,8 



* CHECKSUM TAG? ( 7 ) 
# 

CI JMPTAG, CHECK- JMP/2*256 



JEQ SKI PCS 
A R6.R7 



UPDATE CHECKSUM 



* CHECK FOR VALID HEX INPUT AND ISOLATE HEX DIGIT 
* 



SKIPCS CI 



R6,"0' 



G0T1 



JLT GETERR 

CI R6,'9-' 

JLE G0T1 

CI R6,'A' 

JLT GETERR 

CI R6,'F' 

JGT GETERR 

AI R6.9 

AND I R6,>F 



MIN NUMERIC . 
MAX NUMERIC 
-MIN ALPHA 
MAX ALPHA 
ALPHA ADJUST 

isolate" BINARY 
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m-* 990 TAG FORMAT 


LOADER ##* 


1 227 


* 


ASSEMBLE THE VALUE 


1228 


# 




1229 06AA 0A4A 




SLA RIO, 4 


1230 06AC A2S6 




A R6 , R 1 


1231 06AE 0585 




INC R5" 


1232 06B0 16E0 




•JNE GET41 


1233 06B2 05CB 




INCT 11 


1234 06B4 045B 


GETERR B #11 
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IN BINARY 
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ADD NEW DIGIT 

DONE? 

GET ANOTHER CHARACTER 

BUMP PAST ERROR RETURN 

EXIT, TAG OR INVALID INPUT IB 1*11 
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1237 
1238 
1239 
1240 
1241 
1242 
1243 
1 244 
1245 
1246 
1247 
1243 
1249 
1250 
1251 

1 252 * 

1253 06B6 400S F SZC 

1254 06B8 0203 NULLS LI 
06BA 8402 

1255 06BC 0204 L.I 
06BE 05C0 

1256 06C0 0285 CI 
06C2 ODOO 

1257 06C4 1307 
1258 
1 259 
1260 

1261 06C6 0223 
06C8 1 000 

1262 06CA 0224 A I 
06CC FFCO 

1263 06CE 0A82 

1264 06D0 1001 
1265 
1 266 
1267 

1268 06D2 

1269 06D2 0484 

1270 06D4 

1271 06D4 0483 

1272 06D6 1603 

1273 06D8 2FA0 
06DA 0238" 

1274 06DC 2E80 

1275 06DE SKIP2 

1276 06DE 8040 

1277 06E0 16F8 



* 

* FIND COMMAND — "F" 

* LOOK FROM START ADDRESS TO STOP ADDRESS FOR 

* THE SPECIFIED DATA PATTERN. THE TERM. 

* CHARACTER FOLLOWING THE DATA PATTERN DETERMINES 

* THE MODE: 

* CARRIAGE RETURN - WORD MODE 

* MINUS - BYTE MODE. 

* IN THE BYTE MODE, THE RIGHT BYTE OF THE DATA 

* PATTERN IS SEARCHED FOR. 
# 

* 



WDBDY,STARTA WORD ALIGN 
R3,>8402 SET UP CMD=( 



R4,>5C0 
TCHAR , >D00 



JEQ SKIPS 



KEY,*START 
SET UP 'INCT'- CMD 
WORD MODE ? 
IF YES, JUMP 



* ADJUST FOR COMPARE BYTE COMMAND 
A I R3 , > 1 000 



R4,->40 



SLA KEY, 8 
.JMP SKIPS 



CHANGE TO COMPARE BYTE 
CHANGE TO ■INC 
BYTE ALIGN DATA 



* CHEC 


;K FOR 


DATA MATCH 


# 






SKI PI 








X 


R4 


SKIPS 








X 


R3 




.JNE 


SKIP2 




MESG 


eCRLF 



WHEX STARTA 



EXECUTE INCREMENT COMMAND 

EXECUTE COMPARE COMMAND 
IF NO MATCH, .JUMP 
NEXT LINE 

OUTPUT MATCH ADDRESS 



C STARTA, STOPA DONE? 

JNE SKI PI NO, CHECK NEXT ADDRESS 



1278 06E2 0459 FEXIT B 



TO MONITOR 



3-36 



TIBUG SDSMAC 947075 *B 

*** HEX ARITHMATIC *** 



16:35:23 FRIDAY, JUN 17, 1977. 



PAGE 0035 



1281 
12S2 

1 2!-!- T ! 

1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 



* HEX ARITHMETIC COMMAND — -H' 
* 

* OUTPUT SUM AND DIFFERENCE OF TWO HEX NUMBERS. 

0000 HO EQI.J 



0001 HT 



EQU 



* H1+H2 



1293 06E4 2FA0 H 
06E6 0246 ' 

1294 06E8 CI 00 

1295 06EA A101 

1296 06EC 2E84 

1297 * 

1298 * HI -Hi 

1299 * 

1300 06EE 2FA0 
06F0 024F' 

1301 06F2 6001 

1302 06F4 2ES0 

1303 06F6 0459 



MESO ©HP 

MOV HO, VALUE 
A HT, VALUE 
WHEX VALUE 



MESG @HM 

S HT,H0 
WHEX HO 
B *9 



PRINT -H1+H2 



GET SUM 
OUTPUT H1+H2 



PRINT -Hl-H2= 

GET DIFFERENCE 
OUTPUT H1-H2 
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*** T COMMAND *** PAGE 003-5 

1306 ####*###**#####*#**#*#######**#*######*##*****■#■** 

1307 * 

1308 * T COMMAND 

1 309 # 

ir-!lO * IF THE TERMINAL BEING USED IS A TEXAS 

1311 * INSTRUMENTS 733ASR OPERATING AT 1200 BAUD, THE 

1*12 * EFFECTIVE BAUD RATE MUST BE REDUCED TO 300 BAUD 

1313 * FOR CORRECT PRINTER OPERATION. AT SYSTEM 

1314 * INITIALIZATION, IF THE TERMINAL IS OPERATING 
1*15 * AT 1200 BAUD, TIBUG ASSUMES THAT THE 

1*16 * TERMINAL IS A 733ASR. ENTRY OF THE T COMMAND 

1317 * TOGGLES THE "ASR" FLAG FOR TRUE 1200 BAUD 

1318 * OPERATION. 

1319 * 

1320 **************#***#**#******'******************** 

1321 * 

1322 * 

1323 06F8 0560 T INV ©ASR INVERT DATA 
06FA FFF4 

1324 06FC 0459 TEX IT B *9 EXIT 
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1327 
1328 
1329 
1330 
1331 
1 332 
1333 
1 334 
1335 
1 336 
1 337 

1 338 

1 339 
1340 
1341 
1342 
1 343 
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344 

345 
346 



1347 
1348 
1349 
1 350 
1351 



13? 



353 
354 
355 
356 



06FE 
06FE 
0700 
0702 
0704 
0706 
0708 
070A 
070C 
070E 
0710 
0712 
0714 
0716 
0718 
071 A 
07 1C 
07 IE 
0720 
0722 



CO 1 D 
1604 
0200 
OFOO 
0600 
16FE 
0200 
0004 
C25B 
C049 
09C1 
0A31 
0221 
3000 
2F01 
0A49 
0600 
1 6F7 
0380 



* MICRO TERMINAL OUTPUT ROUTINE XOP 
# 

* CALL: OTPT RX WHERE X IS NOT EQUAL TO O 

* PO IS USED TO PASS THE DELAY FLAG 
# 

* THIS ROUTINE IS CALLED WHEN OUTPUT TO THE MICRO TERMINAL 

* IS REQUIRED. THE DATA IS CONTAINED AT THE ADDRRESS 

* SPECIFIED BY WPU. THE DATA IS OUTPUT IN 4 MICRO 

* TERMINAL WORDS. THE WRITE XOP IS UTILIZED FOR OUTPUT 

* ONCE THE DATA IS FORMATTED. RETURN IS NORMAL. 
» 

OTPTEN 

DO WE USE DELAY ? 

IF NO, -JUMP OVER DELAY 

REG 1 = TIMER TICK 



MOV *R13,R0 
JNE BDLY 
LI RO,>FOO 



DLY DEC RO 

.JNE DLY 

BDLY LI R0,4 

MOV *11,R9 

CNOT MOV R9.R1 

SRL Rl,12 

SLA Rl,8 

A I Rl,>3000 

WRIT 1 

SLA R9,4 

DEC RO 

.JNE CNOT 
RTWP 



DEC TICK COUNT 

IF NOT TIMED OUT GO BACK 



SAVE MSB 

TURN INTO ASCII 

OUTPUT 1 MICRO TERMINAL. WORD 

DEC NIBBLE COUNTER 

IF NOT DONE, .JUMP BACK 

EXIT 
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1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
136S 
1369 
1370 
1371 
1372 



0724 

0724 0201 
0726 0004 
1373 0728 04DB 
072A C15B 



374 

375 

376 

77 



1378 
1379 
1 380 
1381 
1382 
1 383 
1384 



072C 
072E 
0730 
0732 
0734 
0736 
0738 
073A 
073C 



0A45 
C6C5 
2F43 
0A43 
09C3 
E6C3 
0601 
16F7 
0330 



* MICRO TERMINAL INPUT XOP 1 
* 

* CALL: INPT RX 
* 

* THIS ROUTINE IS UTILIZED WHEN THE MICRO TERMINAL REQUIRES 

* INPUT. DATA WILL BE PLACED AT THE ADDRESS SPECIFIED BY WP1 

* THE DATA IS INPUT IN 4 MICRO TERMINAL WORDS. THE READ XOP 

* IS UTILIZED FOR INPUT AFTER THE DATA IS FORMATTED. RETURN 

* IS NORMAL. 
•* 

****#*#*#***#*##***##*#***#*****#****♦****#*#**#************ 
INPTEN 

REG 4 = # OF TRANSFERS 



LI 



Rl,4 



CNIN 
# 



CLR *11 
MOV *11,5 

SLA R5,4 
MOV R5,*ll 
READ 3 
SLA R3,4 
SRL R3,12 
SOC R3,*ll 
DEC Rl 
•JNE CNIN 
RTWP 



START WITH ALL O.'S 

PUT DATA (NIBBLE, 4 BITS) IN 

REG 5 

MOVE DATA TO LEFT 

PUT DATA BACK IN MEMORY 

GET NEXT 4 BITS 

STRIP OFF OS & RIGHT .JUSTIFY 

TURN ON l'S IN DATA WORD 
DECREMENT NIBBLE CTR 
IF NOT DONE, .JUMP BACK 
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1387 
1388 
1389 
1 390 
1391 
1392 
1 393 
1394 
1 395 
1396 
1397 
1 398 
1 399 
1400 
1401 
1402 
1 403 
1404 
1405 
1406 
1407 
1403 
1 409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 

1417 

1418 

1419 
1420 

1421 
1422 

1423 

1424 
1425 

1426 
1 427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1 437 
1438 
1439 



########**#*#*#»#****#*#**##**#***##*########**#*#****####** 



073E 
073E 
0740 
0742 
0744 
0746 
0748 
074A 
074C 
074E 
0750 
0752 
0754 
0756 
0758 
075A 
075C 
075E 
0760 
0762 
0764 
0766 
0766 
0768 
076A 
076C 
076E 
0770 
0772 
0774 
0776 
0773 
077A 
077C 



2F42 

04C0 

04EO 

FFF3 

0720 

FFFA 

0282 

4100 

1602 

0460 

0092 ' 

06C2 

0242 

00 IE 

0232 

0018 

15EF 

0222 

0766' 

0452 

1018 
100B 
100C 
100D 
100E 
100F 
1010 
1024 
102F 
1014 
1010 
0330 



1 COMMAND 

THIS ROUTINE IS ENTERED IF THE TEXAS INSTRUMENTS MICRO 
TERMINAL IS CONNECTED TO THE M99/100 MX. WHEN THE RESET 
PUSHBUTTON IS DEPRESSED THE MICRO TERMINAL WILL SEND OUT 
AN ASCII -A' AT 110 BAUD. TIBUG DETERMINES THE BAUD RATE. 
APPROXIMATERLY 1 MS LATER THE MICRO TERMINAL SENDS OUT 
THE ASCII CHARACTER ' Z " WHICH CAUSES THE COMMAND 
PREPROCESSOR TO BRANCH TO THIS ROUTINE. SINCE THE MICRO 
TERMINAL, FOR A HALT CONDITION, FIRES A LOAD SIGNAL, 
THE HALT POINT IN THIS ROUTINE MUST BE ENTERED FROM THE 
TIBUG LOAD ROUTINE WHEN THE MICRO TERMINAL STEP FLAG 
IS NOT SET AND THE MICRO TERMINAL PRESENCE FLAG IS SET. 
SINCE THE SINGLE INSTRUCTION EXECUTION FUNCTION ALSO 
CAUSES THE LOAD SIGNAL TO BE FIRED FROM THIS ROUTINE 
THE START OS THIS ROUTINE MUST BE ENTERED FROM THE 
TIBUG LOAD ROUTINE IF THE MICRO TERMINAL STEP FLAG IS 
SET. ALL COMMANDS FROM THE MICRO TERMINAL ARE TREATED 
AS ADDRESS BIASES THAT STEER EXECUTION TO THE PROPER 
OPERATION. ALL SPECIFIED OPERATIONS ARE PERFORMED IN 
THIS ROUTINE EXCEPT READING COMMANDS AND INPUTTING AND 
OUTPUTTING OF MICRO TERMINAL DATA WHICH IS PERFORMED 
BY XOPS 1 AND RESPECTIVELY. 



NA 



SETO 


6HALTFG 


CI 


R2,>4100 


•JNE 

B 


NA 
STICKO 


SWPB 
AND I 


R2 
R2,>1E 


CI 


R xt t J* 1 c' 


...IGT 
AI 


MTIN 
R2,.JMTB 



*r; 



RIGHT .JUSTIFY CMP CODE 
STRIP OUT BITS 

TOO LARGE ? 

IF YES, WAIT FOR NEXT KEYSTROKE 
ADD .JUMP TABLE BIAS 

GO TO EXECUTE CODE 



JMTB 



JMP 


EMA 


.JMP 


EPC 


JMP 


EST 


■JMP 


EWP 


•JMP 


DPC 


•JMP 


DST 


JMP 


DWP 


JMP 


DCRU 


JMP 


ECRU 


JMP 


EMDI 


JMP 


EMD 


RTWP 
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1440 


077E 


1019 




..IMP 


STEP 


1441 


0780 




EPC 






1442 


0780 


2C4E 




INPT 


14 


1443 


0782 


10DD 




JMP 


MTIN 


1444 


0784 




EST 






1445 


0784 


2C4F 




INPT 


15 


1446 


0786 


10DB 




■JMP 


MTIN 


1447 


0788 




EWP 






1448 


0788 


2C4D 




INPT 


13 


1449 


078A 


10D9 




•JMP 


MTIN 


1450 


078C 




DPC 






1451 


078C 


2C0E 




OTPT 


14 


1452 


078E 


10D7 




.JMP 


MTIN 


1453 


0790 




DST 






1454 


0790 


2C0F 




OTPT 


15 


1455 


0792 


10D5 




.JMP 


MTIN 


1456 


0794 




DWP 






1457 


0794 


2C0D 




OTPT 


13 


1453 


0796 


1 0D3 




...IMP 


MTIN 


1459 


0798 




EMA 






1 460 


0798 


2C48 




INPT 


O 


1461 


079A 


1 005 




.JMP 


EMDI1 


1462 


079C 




EMD 






1463 


079C 


2C49 




INPT 


9 


1464 


079E 


C609 




MOV 


9, #8 


1 465 


07A0 


1002 




..IMP 


EMDI1 


1 466 


07A2 




EMDI 






1467 


07A2 


2C49 




INPT 


9 


1468 


07A4 


CE09 




MOV 


9,*3+ 


1469 


07 A 6 


C258 


EMD 11 


MOV 


*8 , 9 


1 470 


07A8 


101E 




.JMP 


HALT1 


1471 


07 A A 




STEPRT 






1472 


07AA 


2C0E 




OTPT 


14 


1473 


07AC 


C25E 




MOV 


#14,9 


1474 


07AE 


0700 




SETO 


RO 


1475 


07B0 


101A 




.JMP 


HALT 1 


1476 


07B2 




STEP 






1477 


07B2 
07B4 


0720 
FFF8 




SETO 


6STEPFG 


1478 


07B6 
07B8 


04E0 
FFFA 




CLR 


©HALTFG 


1 479 


07BA 


03E0 




LREX 




1480 


07BC 


0380 




RTWP 




1481 


07BE 




DCRU 






1482 


07BE 


2C4A 




INPT 


10 


1 483 


07C0 


04C9 




CLR 


R9 


1484 


07C2 


C30A 




MOV 


R10,R12 


1485 


07C4 
07C6 


02 40 
OFFF 




AND I 


R12,>FFF 


1 486 


07C8 


0A1C 




SLA 


R12, 1 


1 487 


07CA 


09CA 




SRL 


RIO, 12 


1488 


07CC 


0A6A 




SLA 


RIO, 6 


1 489 


07CE 
07D0 


022A 
3409 




AI 


RIO, >3409 


1490 


07D2 


048A 




X 


RIO 


1491 


07 D4 


1 008 




.JMP 


HALT1 


1492 


07D6 




ECRU 






1 493 


07D6 


2C49 




INPT 


y 


1494 


07D8 
07DA 


022A 
FCOO 




AI 


RIO, ->400 



STORE PC 

AWAIT NEXT COMMAND 

STORE ST 

AWAIT NEXT COMMAND 

STORE WP 

AWAIT NEXT COMMAND 

OUTPUT PC 



OUTPUT STATUS 
AWAIT NEXT COMMAND 

OUTPUT WP 

AWAIT NEXT COMMAND 

STORE MA 



GET DATA 



GET DATA 

GET CONTENTS OF LOCATION 

GET DATA 

00 OUTPUT DATA 

OUTPUT PC 

TURN ON SHORT FLAG 
00 OUTPUT GATA 

SET THE STEP FLAG 

CLEAR HALT FLAG 



GET CONTROL WORD 
CLEAR COMMAND WORD 
REG 12 = CMD WORD 
STRIP OFF CRU ADDR BITS 

CRU BASE ADDR IS NOW SET UP 
STRIP OUT OS 
SET UP BIT COUNT 
CONSTRUCT STCR COMMAND 

EXECUTE STCR R9, X 
GO OUTPUT CRU DATA 

GET CRU DATA 
RIO = LDCR R9, X 
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1495 07DC 048A X RIO 

1496 07DE 10AF JMP MTIN 

1497 07E0 HALT 

1498 07E0 0700 SETH RO 

1499 07E2 2C0E OTPT 14 

1500 07E4 C25E MOV *14,9 

1501 07E6 2C09 HALT1 OTPT 9 
-^1502 07E8 10AA JMP MTIN 

1503 END 
NO ERRORS 



EXECUTE LDCR R9, X 
AWAIT NEXT COMMAND 

SET SHORT OUT FLAG 

OUTPUT PC 

GET MEMORY DATA 

OUTPUT DATA 

AWAIT NEXT COMMAND 
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